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MINEFIELD GAME 
KEEPING SCORE 




There's nothing like knowing that 
you only have two seconds to get 
back to base or that you're within 
ten points of the high score to get 
your pulse racing. All arcade games 
keep some sort of count of the score 
or time to add to the excitement— 
and with a few simple programs, so 
can you. 

Nearly all computer games need some kind of 
scoring and timing — or even both. Without 
them you can't judge how good you are at the 
game, or if you're improving, and there's little 
point in playing against your friends. 

You could have someone sitting beside you 
counting your hits on the ferocious foe, but 
there's little point when you can program the 
computer to do it for you. A few more 
program lines will persuade the machine to 
remember high scores, too. 

Similarly, there's no need to resort to a 
stopwatch for timing. As you saw in the maze 
game (pages 68 to 74), the machines all have a 
built-in timer, and it can be used in many 
ways to improve your games. 



MINEFIELD 



So that you can see how to set up scoring and 
timing routines in practice, here is a game, 
suitable for all the machines except the ZX81 
and Vic 20, which will have the routines added 
to it progressively. Each routine is quite simple 
and could be added to other games, too. 

The game is called Minefield and in it you 
are a tank commander whose mission is to 
rescue paratroopers who are recklessly land- 
ing in a minefield. Wherever the tank is 
moved it runs the risk of detonating a mine 
planted at random by the computer. As in a 
real minefield, the mines are invisible — so 
move with caution! 

The tank (only a # mark, unfortunately, 
until you learn how to combine graphics and 
movement in a BASIC program) is controlled 
by using the usual movement keys — 2 for left, 
X for right, P for up and L for down. Indeed, 
the core of the program is the 'moving around 
the screen routine' which you saw earlier 
(pages 54 to 59). 



ADDING A GAME TIMER 
QUICK DRAW REACTION TIMER 
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When you type in and RUN this section of 
the game you'll see that it's not yet 
complete — once you've rescued the para- 
trooper nothing happens except that the tank 
continues to wander around the screen aim- 
lessly. The program has to be stopped by 
pressing the [BRlAKl I ESCAPE | or |RUN/ST0P| 
keys, or you'll have to wait until the tank 
detonates a hidden mine. But don't worry, 
this will be improved as soon as you add the 
scoring and timing routines which follow. 



On the Tandy, use 247 instead of 223 in Line 
140 and 150;" 251 instead of 239 in Line 160; 
253 instead of 247 in Line 170. 

50 LET PO = 210 

60CLS 

70 PRINT® 256, STRINGS (32,"-") 

90LETX=RND(256)-1 

110 IF X< >P0THEN PRINT® X."0"; 

ELSE GOTO 90 
120 PRINT® P0,"#"; 
130 LET LP=P0 
140 IF PEEK{340} = 223 THEN 

LET P0=P0-1;G0T0 190 
150 IF PEEK(338) = 223 THEN 

LET P0 = P0 + 1:G0T0 210 
160 IF PEEK(33S) = 239 THEN 

LET PO = PO - 32:GOTO 220 
170 IF PEEK(342) = 247 THEN 

LET PO = PO + 32:GOT0 220 
180 GOTO 140 
190 IF (LP AND 31) =0 THEN 

LET PO = LP 
200 GOTO 220 
210 IF (PO AND 31) = 0THEN 

LET PO = LP 
220IFPO>255ORPO<0THEN 

LET PO = LP:G0T0 140 
230 PRINT® LP," □"; 
240 PRINT® P0,"#"; 
250 LET M = RND(256)-1 
270 IF M = P0 THEN PRINT® PO,"D": 

PRINT® 130,"BOOM!!-YOU'VE HIT 

A MINE":STOP 
310 GOTO 130 

The tank is moved around the screen by 
Lines 140 to 170, which check for the 
appropriate keypresses — see page 59. In order 
to confine the tank to the top half of the 
screen, Line 220 reads IF PO > 255. . . . Screen 
location 255 is the last location on the top half 
of the screen, so the IF . . . THEN stops it stray- 
ing below the dotted line drawn by Line 70. 
Line 70 draws the line across the screen by 
using a new function— STRINGS. STRINGS 
(32,"-") as in Line 70 simply tells the 
Dragon to draw a string of 32 dashes. (If you 



wanted ten question marks you'd use 
STRING$(10,"?"), and so on.) 

The place that the paratroopers drop is 
chosen by the random number in Line 90, 
and Line 110 displays the parachute on the 
screen if the position chosen isn't already 
occupied by the tank. If it is, then Line 90 
chooses another position. 

Finally, the position of the hidden mine is 
chosen by Line 250. Line 270 then checks if 
the tank and mine are at the same screen 
location. If they are, the explosion message is 
displayed and the program stops. 

IJ 

15VDU23;8202;0;0;0; 

50 LET tankx = 20 : LET tanky = 1 

60CLS 

70 PRINTTAB(0,13) STRINGS (40,"-") 

90LETparax = RND(30) + 4 

100 LET paray = RND(12) 

110 IF (parax< > tankx) AND (paray< > 

tanky) THEN PRINT TAB(parax.paray) 

"0";ELSE GOTO 90 
120 PRINT TAB(tankx,tanky) "#"; 
130 LET lasttankx = tankx : LET 

lasttanky = tanky 
140 KEYS = GETS 

145 IF KEY$ = "P" THENtanky = tanky-1 
150 IF KEY$ = "L" THEN tanky = tanky + 1 
160 IF KEY$ = "Z" THEN tankx = tankx - 1 
170 IF KEY$ = "X" THEN tankx = tankx + 1 
1 90 IF tankx < 5 OR tankx > 34 THEN 

LET tankx = lasttankx 
200 IF tanky <1 OR tanky > 12 THEN 

LETtanky=lasttanky 
230 PRINT TAB (lasttankx Jasttanky) "□" 
240 PRINT TAB(tankx,tanky) "#" 
250LETminex=RND(30)+4 
260LETminey = RND(12) 
270 IF (minex = tankx) AND (miney = 

tanky) THEN PRINT TAB(minex,miney) 

"□": PRINT TAB(7,7)"BOOMN- 

YOU'VEHITAMINE":END 
310 GOTO130 

In the Acorn program, Lines 1 45 to 1 70 check 
which key has been pressed by the player 
before moving the tank. A full explanation of 
how this is done is on page 55. Lines 190 and 
200 confine the tank to an area above the 
dotted line drawn by Line 70, and also stop 
the tank going off the top of the screen. 

Line 70 draws the line across the screen 
using a new function— STRINGS. STRINGS 
(40,"—") simply tells the Acorn machines to 
draw a string of 40 dashes. (If you wanted a 
string of 15 plus signs, for example, you'd 
typeSTRING$(15," + ").) 

The place the paratroopers drop is chosen 
by Lines 90 and 100. The dropping position 





is compared with the tank's position by Line 
110. If the positions are different, then the 
paratrooper is displayed on the screen at the 
chosen position. If the tank's position is 
chosen then another dropping position is 
selected by going back to Line 90, 

In a similar way Lines 250 and 260 choose 
a place for the mine. Line 270 then checks if 
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the tank and mine are at the same screen 
position. If they are, the tank is wiped out by 
PRiNTing a space at its position, and the 
explosion message is aiso displayed. Then the 
program stops. 

Finally, in order to clear up the display 
Line 1 5 is a VDU command which turns off the 
cursor. 



50LETtx=16: LET ty = 5 

60CLS 

70 PRINT AT 11,0;" 

90LETpx = INT(RND*30) + 1 

100LETpy = INT(RND*10) 

110 IF px = tx AND py = ty THEN GOTO 90 

1 20 PRINT AT py,px;"0";AT ty,tx;" # " 

130LETtxx = tx: LET tyy = ty 

140 LET a$ = INKEYS 

145 IF a$ = 'TJ" THEN LET ty = ty — 1 

150 IFa$ = 'T'THEN LET ty = ty + 1 

160 IF a$ = "z" THEN LFJtx = tx-1 

170IFa$ = "x"THENLETtx=tx + 1 

190 IF ty<0 OR ty>10THEN LET 

ty = tyy 
200IFtx<1 OR tx> 30 THEN LET 

tx = txx 
230 PRINT AT «yy,txx;"D" 
240 PRINT AT ty,tx;"#" 
250 LETmx = INT(RND*30) + 1 
260 LETmy = INT(RND*10) 
270 IF mx = tx AND my = ty THEN PRINT 

ATmy^mxrCi": PRINT AT 8,3; 

"BOOMH-YOU'VE HIT A MINE": 

STOP 
310 GOTO 130 

In the Spectrum program the screen is di- 
vided in half by Line 70 — it PRINTs a series of 
32 dashes across the screen. Lines 145 to 170 
control the movement of the tank around the 
screen. A full explanation of how this works is 
on page 57. 

Lines 1 90 and 200 confine the tank to an 
area above the dotted line drawn by Line 70, 
and prevent it from going off the screen. 

The dropping position of the paratroopers 
is chosen randomly by Lines 90 and 100. 
Line 1 10 checks if the tank and paratrooper 
will occupy the same screen location. If they 
will then a new dropping position is chosen by 
going to Line 90. 

In a similar way Lines 250 and 260 choose 
a place for the mine. Line 270 compares the 
mine's position with the tank's. If they are the 
same then the tank is PRINTed out, and the 
explosion message is displayed. The program 
stops if there is an explosion, 

i5z$="@hmhshmbh 

HHHH":P0KE 650,128 
50 LET PO = 205 

60 PRINT "□"£$;" 



70 POKE 53280,1 :P0KE 53281 ,3 

85 LET L=5 

90LETX=INT(RND(1)*479) + 1 

110 IFX = POTHEN GOTO 90 

115 POKE 1024 + X,87 

120 POKE 1 024 +PO,35 

130 LET LP= PO: LET LL= LGET A$ 

140 IF A$ = "Z" THEN LET P0 = P0 — 1: 

L=L-1:GOTO190 
1 50 IF A$ = "X" THEN LET PO = PO + 1 : 

L=L+1:GOTO210 
160 IF A£ = "P" THEN LET PO = PO - 40: 

GOTO 220 
170 IF A$ = "L" THEN LET PO = PO + 40: 

GOTO 220 
180 GOTO 130 
190 IF L<0 THEN LETP0 = LP: 

LET L = LL 
200 GOTO 220 
210 IF L>39 THEN LET PO = LP: 

LET L = LL 
220 IF 1 024 + PO< 1024 OR 1024 + 

P0> 1024 + 479 THEN LETP0 = LP: 

GOTO 130 
230 POKE 1 024 +LP,32 
240 POKE 1 024 + P0,35 
250LETM = INT(RND(1)*479) + 1 
270 IF M = P0 THEN POKE 1024 + 

PO,32:PRINTZ$;"HBOOM!l- 
YOU'VE HIT A MINE": STOP 
310 GOTO 130 

In the Commodore program the screen is 
divided in half by a line drawn by Line 60. Z$ 
has been defined in Line 15 and is a string of 
cursor controls. The POKE in Line 1 5 switches 
on the key repeat. 

The screen and border colours are set by 
the POKEs in Line 70. 

Line 85 sets L, which is used by the 
program in Lines 190 and 210 to prevent the 
tank going off either side of the screen. 

POKEs are used to display characters on the 
screen. PO is the position of the tank, and Line 
120 displays it on the screen. 

The dropping position of the paratrooper 
is chosen by Line 90. The position is com- 
pared with the tank's position. If they are the 
same then a new position for the paratrooper 
is chosen. Line 115 displays the paratrooper 
on the screen. 

Line 220 stops the tank going off the top of 
the screen or below the dotted line. Line 230 
blanks out the last position of the tank and 
Line 240 displays the tank in its new position. 

Finally. Line 250 selects at random a 
position for the mine. Line 270 compares the 
position of the mine and the position of the 
tank. If they are the same then the tank is 
blanked out by POKEing and the explosion 
message is displayed. 
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SCORING 



In arcade-type games the score is normally 
increased when the screen positions of two 
objects are the same. The objects may be a 
missile and a target, a Pacman and a power 
pill, a tank and a paratrooper, a horse and a 
winning post or whatever your game 
demands. 

So add these lines to the program to see 
how a scoring mechanism works in practice: 

ISO 

40 LETS = 
280IFX=POTHENLETS = S+1: 

GOTO 90 
330 PRINT@295,S;"PARATROOPERS"; 

H 

40 LET S = 

280 IF (parax = tankx) AND (paray = 
tanky)THEN LET S = S + 1 :G0T0 90 

330 PRINT TAB(1 2,1 5);S; 
"□ PARATROOPERS" 



40LETs=0 

280 IF px = tx AND py = ty THEN LET 

s = s+1:GOTO90 
330 PRINT AT 14,8;s;"D PARATROOPERS" 

o 

40 LET S = 

280 IFX=P0 THEN LETS = S + 1: 

GOTO 90 
330 POKE53280,254: POKE53281 ,246: 

PRINT "H □ □ □ □ □ □ D";S; 
"PARATROOPERS" 

And change the STOP or END in Line 270 to 
GOTO 330. Line 270 should now read: 

mn 

270 IF M = P0THEN PRINT© P0,"D": 
PRINT® 130,"BOOM!!-YOU'VE HIT 
A MINE":G0T0 330 

a 

270 IF (minex = tankx) AND (miney= 
tanky) THEN PRINT TAB(minex,miney) 
"!": PRINT TAB(7,7)"BOOM!!- 
YOU'VE HIT A MINE":G0T0 330 



270IFmx = txANDmy = tyTHEN 
PRINT AT my,mx;"!": PRINT AT 
8,3;"BOOM!!-YOU'VEHITA 
MINE": GOTO 330 



P0,32:PRINT Z$;"MB00M!!-Y0U'VE 
HIT A MINE":GOTO 330 

Line 280 is the important one. It checks if the 
tank and the paratrooper are on the same 
screen location. If they are, then the score is 
increased by 1. 

Line 40 sets the score to zero before the 
game starts and Line 330 displays the score. 
Changing the end of Line 270 makes the 
computer display the score after a mine has 
been detonated. 

The player is now given a succession of 
paratroopers to rescue. When one is rescued 
another drops from the sky. The game stops 
when a mine is detonated by the tank moving 
across the same screen location. 



HIGHSCORES 



Adding a high score feature to a game isn't 
difficult. All you need is a variable for the 
high score — say, HS — and some way of updat- 
ing it as the high score is exceeded, plus a 
display routine. 

These are the lines you'll have to add to get 
a high score feature: 



flfiO 



cr 



270 IF M = P0 THEN POKE 1024 + 



30 LET HS = 

350 IF S>HS THEN LET HS = S 

370 PRINT© 424,"HIGH SCORE = ";HS; 

H 

30 LET HS = 

350 IFS>HS THEN LET HS = S 

370 PRINT TAB(1 2,20) "HIGH 
SCORE =";HS 



30LEThs = 

350 IF s>hsTHEN LEThs=s 

370 PRINT AT 18,8;"HIGH 
SC0RE=";hs 

o 

30LETHS = 
350IFS>HSTHENLETHS = S 

370 print "annnnnncn 

HIGH SCORE = ";HS 

First you must set the high score to the lowest 
level possible, so Line 30 sets HS at zero. 
After the game has stopped Line 350 com- 
pares the latest score (S) with the high score 
(HS). If the latest score is higher than the high 
score, then HS is updated so that it is the same 
as S. Finally, Line 370 displays the high score 
on the screen. 

These lines will probably seem to be 
enough to add a high score to the game. 
Unfortunately this isn't true. Every time you 
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tell the computer to RUN the program it 
automatically forgets the value of HS, along 
with the values of all the other variables. To 
keep the value of HS you'll need to add the 
'Do you want another go?' lines that have 
been used previously (page 35): 

390 FOR F=1 TO 1000:NEXT F 

400 PRINT® 130 

410 PRINT® 135,"ANOTHER GO? 

(Y/N)"; 
420 LET K$ = INKEY$:IF K$ = "" THEN 

GOTO 420 
430IFK$ = "Y"THENGOTO40 
440 IF K$ = "N"THEN END 
450 GOTO 420 



390 FOR F = 1 TO 4000: NEXT F 

400 PRINT TAB(7,7) STRING$(26,"D") 

410 PRINT TAB(11,8)"AN0THER GO? (Y/N)" 

420 LET K$ = GET$ 

430 IF K$ = "Y" THEN GOTO 40 

440 IF K$ = "N" THEN END 

450 GOTO 420 



390 PAUSE 100 

400 PRINT AT 8,3; TAB31 

410 PRINT AT 8,7;"ANOTHER GO? (Y/N)" 
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420LETa$ = !NKEY$ 
430 IF a$ = "y" THEN GOTO 40 
440 IF a$ = "n" THEN STOP 
450 GOTO 420 

o 

390 FOR F=1 TO1000:NEXTF 

410 print "Hnnnnnann 

ANOTHER GO? (Y/N)"; 
420 GET K$:IF K$ = "" THEN GOTO 420 
430IFK$ = "Y"THENGOTO40 
440 IF K$ = "N" THEN PRINT "□": 

POKE 650,0:END 
450 GOTO 420 

This is what the extra lines do: 

There is a short delay introduced by the 
FOR . . . NEXT loop in Line 390 on the Acorn, 
Commodore, Dragon and Tandy and by the 
PAUSE in the Spectrum program. Line 400 in 
the Acorn, Dragon, Tandy and Spectrum 
programs clears a portion of the screen ready 
for the message ANOTHER GO? (Y/N) to be 
PRINTed by Line 410. 

The 'Another Go?' routine is on Lines 410 
to 450 — Line 430 restarts the program at 
Line 40 if Y is pressed, and Line 440 stops the 
program if N is pressed. Line 450 makes sure 
that any other keypress is ignored. 

As there is no need now to type RUN every 
time you wish to have another play the value 



of HS is preserved, although reLOADing the 
program will lose the value of HS even if you 
find some way of starting the program with- 
out typing RUN. 

As it stands the game depends too much on 
luck — the player just keeps on going until he 
runs over the concealed mine. 

Some skill can be introduced into this kind 
of game by turning it into a race against the 
clock. By making these additions you can time 
how long it takes to rescue ten paratroopers. 

80 TIMER = 

290 IF S< 10 AND X = P0 THEN GOTO 90 
300 IFS = 10THEN GOTO320 
320 LET T= TIMER 

340 IF S- 10 THEN PRINT® 327,"IN"; 
T/50;"SECONDS" 

[J 

10LETT=0 
80TIME = 
290 IF S<10 AND (parax = tankx) AND 

(paray=tanky) THEN GOTO 90 
300 IF S = 10 THEN GOTO 320 
320 LET T= TIME 

340 IF S=10 THEN PRINT TAB(12,16) 
"IND";T/100;"D SECONDS" 



10 LETT=0 

80 POKE 23672,0: POKE 23673,0 
290 IF s<10 AND px=tx AND py=ty 

THEN GOTO 90 
300 IF s=10 THEN GOTO 320 
320 LET t= PEEK 23672 + 256*PEEK 

23673 
340 IF s = 10 THEN PRINT AT 16,8; 

"IND";t/50;"DSECONDS" 



80 LET Tl$ = "000000"! = 5 

290 IF S<10 AND X = P0 THEN GOTO 90 

300 IF S = 10 THEN GOTO 320 

320 LETT = VAL(RIGHT$(TI$,2)) + 

60*VAL(MID$(TI$,3,2)} 
340IFS = 10THENPRINT 

"HDDDDDDDDIN";T; 

"□ SECONDS" 

The timer in each of the machines is running 
all the time the computer is switched on. All 
you have to do to 'start' the timer, then, is to 
set the timer reading to zero. The line which 
resets the timer is Line 80 — you'll notice that 
to reset the Acorn timer you enter Tl M E = 0, on 
the Commodore LET Tl$ = "000000", on the 
Dragon/Tandy TIMER = and on the Spec- 
trum POKE 23672,0: POKE 23673,0. What the 
Acorn, Commodore, Dragon and Tandy lines 
are doing is clear, but Spectrum owners may 
be a little puzzled. The two POKEs set the 
values of two particular memory locations to 
zero. What happens is that the first memory 
location counts up to 255 before overflowing 
into the second. 

The clock is 'stopped' by Line 320. The 
clock cannot actually be stopped, so you get 
the machine to remember what the reading 
was at a particular instant — when two objects 
coincide on the screen, say. In these programs 
the timer reading is called T— the Acorn says 
LET T=T[ME, the Commodore LET T= 
VAL(RIGHT$(TI$,2) + 60*VAL(MID$(TI$,3,2)), 
the Dragon/Tandy LET T= TIMER and the 
Spectrum LET t = PEEK 23672 + 256* PEEK 
23673. Again, the Spectrum method may be a 
little puzzling. It's looking directly at the 
values of the two memory locations which 
were set- to zero earlier in the program. 
Location 23672, like any memory location in 
an 8-bit micro, can contain whole numbers 
between and 255. Location 23673 goes 
up 1 every time location 23672 overflows. 

So to work out the total amount of time 
that the Spectrum timer has been running you 
have to multiply the value in location 23673 
by 256 and add on the value stored in location 
23672. 

You may now see why t is equal to PEEK 
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23672 + 256* PEEK 23673. (In any 
case PEEK and POKE will be dealt with fully 
in a later article.) 

The Commodore clock works by updating 
a six character string as set up by Line 80. 
Starting from the right the string contains two 
digits for hours, then two for minutes and 
then two for seconds. Line 320 evaluates the 
string to get a reading in seconds. The 
number of minutes that have elapsed are 
multiplied by 60 and added to the number of 
seconds — MID$(TI$,3,2) looks at the number 
of minutes, and RIGHT$(TI$,2) looks at the 
number of seconds. (Again, a full explanation 
of string slicing comes in a later article.) 

The clock must be stopped when the player 
has rescued ten paratroopers, so Line 300 
checks if ten paratroopers have been rescued 
then jumps to Line 320 which 'stops' the 
timer. In the Commodore program Line 340 



PR I NTs the time when ten paratroopers have 
been rescued. 

If a paratrooper has been successfully 
rescued and the total number rescued is less 
than ten, Line 290 makes another drop down. 

Line 340 displays the rescue time only if 
ten have been recovered. The timer read- 
ing is divided by 50 in the Dragon, Tandy 
and Spectrum programs, and by 100 in the 
Acorn program. Thus the time displayed is in 
seconds — the Acorn clock is updated 100 
times a second and the Dragon and Spectrum 
clocks are updated 50 times a second. 



LOW TIME 



Just as a high score was added to the game 
earlier, you might tike to add a low time 
feature. In this particular game you'll be able 
to record the fastest time in which the ten 
paratroopers have been recovered, although 



the principle can be applied to any timing you 
might wish to do. 

These are the lines to add: 



1£Q 

20 LET LT = 999999 
360IFT<LTANDS = 10THEN LET 

LT = T 
380 PRINT© 452,"LOWTIME = ";LT/50; 

"SECONDS" 

IJ 

20 LET LT = 999999 
360 IFT<LT AND S = 10THEN LT=T 
380 PRINT TAB(1 2,21) "LOW TIME ="; 
LT/1 00;" □ SECONDS" 



20 LET It = 999999 

360 IF Kit AND s= 10 THEN LET 



II 



lt=t 

380 PRINT AT 21 ,4;" LOW TIME = "; 
It/50;" SECONDS" 

& 

20 LET LT= 999999 
360IFT<LTANDS = 10THENLET 

LT = T 
380 PRINT'S □□□□□□□□ 

LOW TIME = ";LT;"D SECONDS" 

Just as when the high score was set up a very 
low 'high score' was originally set, now a 
ridiculously long 'low time' is set. Line 20 
sets the low time variable (LT or It) to a value of 
999999. 

Line 360 goes on to compare the latest time 
with the low time. If the latest time is shorter 
than the low time and ten paratroopers have 
been rescued, then the low time is altered so 
that it is the same as the latest time. 

Finally, Line 380 displays the low time in 
seconds. The low time variable is divided by 
50 or 100 to display the low time in seconds. 

One thing you must remember is that if 
you are using a low time feature in a game you 
need to use the 'Another go?' routine other- 
wise you'll lose the value of the low time every 
time you RUN the program. 



TIMING AND THE KEYBOARD 



So far you've seen how to control the 
machine's timer from within a program by 
checking the positions of two objects on the 
screen. Another way to 'stop' the clock is to 
use the keyboard. 

On page 54 you were shown how to use 
INKEY$ or GET$. They can be used just as 
easily to start or stop the timer as to control 
objects on the screen. 

Here is a 'quick-on-the-draw' game which 
illustrates how the keyboard can be used to 
stop the timer: 

ma 

20CLS 

30LETN = RND(900) 

40FORF = 0TON 

50 NEXT F 

60 PRINT© 269,"DRAW!!" 

70 TIMER = 

80IFINKEY$ = ""THENGOTO80 

90 LET T = TIMER 

100 PRINT® 269,"BANG!!" 

110 FOR F = 1 TO 300 

120 NEXT F 

130LETM = RND(25) 

140 IFT<M THEN PRINT© 264, 

"YOU'VE SURVIVED" 
150 IF T>M THEN PRINT® 266, 

"YOU'RE DEAD" 



160 IF T=M THEN PRINT© 264, 
"YOU'RE BOTH DEAD" 

IJ 

20CLS 

30LETN = RND(2000) 

40 FOR delay = TON 

50 NEXT delay 

60 PRINT TAB{1 7,1 3) "DRAW!!" 

70TIME = 

80K$ = GET$ 

90 LET T= TIME 

100 PRINT TAB(1 7,1 3) "BANG!!" 

110 FOR delays 1 TO 1000 

120 NEXT delay 

130LETM = RND(40) 

140 IF T<M THEN PRINT TAB(12,13} 

"YOU'VE SURVIVED" 
150 IFT>M THEN PRINT TAB(1 4,1 3) 

"YOU'RE DEAD" 
160 IFT=M THEN PRINT TAB(1 2,1 3) 

"YOU'RE BOTH DEAD" 



20CLS 

30LETn=INT(RND*400) + 1 
40 PAUSE n 

60 PRINTAT 11,14;"DRAW!!" 
70 POKE 23672,0: POKE 23673,0 
80 IF INKEYS = "" THEN GOTO 80 
90 LET T= PEEK 23672 + 256* PEEK 

23673 
100 PRINTAT 11/I4;"BANG!!" 
110 PAUSE 50 

130LETm = INT(RND*35) + 1 
140 IF t<m THEN PRINT AT 11,9; 

"YOU'VE SURVIVED" 
150 IF t>m THEN PRINT AT 11,11; 

"YOU'RE DEAD" 
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Is there any limit to the period I 
can time? 

Yes, there is — though it is usually so 
long that in practice it makes no 
difference. The timer in most home 
computers runs at a similar speed, and 
the limiting factor is how many time 
pulses the computer is able to remember. 
The Dragon, Tandy and Commodore 
can hold up to two bytes (65,535) which 
works out to about 22 minutes. The 
Spectrum runs to three bytes — nearly 
four days. The BBC and the Electron 
store the time in four bytes which 
means they can be set to count 
for almost 350 years! 



160 IF t = m THEN PRINT AT 11,9; 
"YOU'RE BOTH DEAD" 

Cr 

20 PRINT "□" 

30LETN = INT(RND(1)*900) + 1 

40FORF = 0TON 

50 NEXT F 

60 PRINT "□SHHHSS";TAB(16); 

"DRAW!!" 
70 LETTI$ = "000000": POKE 198,0 
80 GET K$:IF K$ = ""THEN GOTO 80 
90LETT=TI 

100 PRINT "@HHHHHM";TAB{16); 
"BANG!!" 

110 FOR F = 1 TO 300 

120 NEXT F 

130LETM = INT(RND(1)*35) + 1 

140 IFT<M THEN PRINT 

"HSMSSMMHIM"TAB(5i) 

"YOU'VE SURVIVED" 
150 IF T>M THEN PRINT 

"@MSMSMHSS ' TAB(53) 

"YOU'RE DEAD" 
160 IF T=M THEN PRINT 

"HSMSBIMMBHrTAB{50) 

"YOU'RE BOTH DEAD" 

The program displays 'DRAW!!' — the player 
then has to press any key as quickly as 
possible. The reaction is timed from the 
moment of display and the player is told 
whether the computer or he has won. 

The program is very simple. After Line 20 
has cleared the screen a random pause is 
introduced by Lines 30 to 50. Line 60 
displays 'DRAW!!' and the timer is started 
immediately by Line 70. Line 80 makes the 
machine wait until a key is pressed before 
continuing. The line is exactly as was used in 
'Keyboard Control' (see page 54). 

Immediately any key has been pressed, the 
program continues to Line 90 which effec- 
tively stops the timer by calling the timer 
reading T. Line 100 displays 'BANG!!'. 

There is a pause introduced by Lines 1 10 
and 120 (Line 110 only on the Spectrum) 
before a draw time is chosen for the 
machine — Line 1 30 does this. 

Now the machine has two variables, your 
time T, and the machine's 'time' M. Lines 140 
to 160 compare them and display whatever 
the outcome of the gunfight was. 

If you are using an Acorn machine, don't 
be tempted to use IN KEY to cause the delays at 
Lines 30 and 110 as you did in the earlier 
programs on animation. The problem now is 
that the delay is cut short if you press a key. 
So if you happen to keep your finger on a key, 
the computer will flash through this game in a 
fraction of a second. 
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Getting the computer to READ a 
store of DATA saves you typing in 
long programs which are slow to 
RUN. You can use the technique for 
anything from graphics to simple 
indexes. 



One of the features that makes a computer so 
versatile is the use of variables. And for the 
most part, assigning values to them is fairly 
straightforward — you can simply say LET 
X = 5, for example. But sometimes the 
amount of such information that you want to 
use can get out of hand. That is where DATA 
statements, and the accompanying READ and 
RESTORE commands, come in handy. Note that 
this is not available in ZX81 BASIC. 

The word DATA has a very specific mean- 
ing here. 'Data' tends to be used to mean a 
variety of things. For example, a program, a 
machine code routine and an array stored 
on cassette tape or floppy disk are all called 
'data'. But in this article it just means the 
DATA statement, and the items stored in it. 

The first method of putting something into 
a variable that people come across — whether 
it is giving a value to a numeric variable, or 
entering a string — is through a simple INPUT 
statement. But that is only of use when 
information is being supplied to the computer 
by the user, each time the program is RUN. 

Often, however, there are fixed values 
which do not need to be entered or altered by 
the operator, and so can be permanently 
incorporated into the program. This is, of 
course, where the LET statement comes in. But 
if there is a lot of information, using masses of 
LETs is tedious to program and slow to RUN. 

Here's an example where a fixed list of 
headings might be used in a program for 
printing out a document: 

10LETA$ = "DAY" 
20 LET B$ = "WEEK" 
30 LET C$ = " MONTH" 
40 LET D$ = "YEAR" 
50 PRINT A$,B$,C$,D$ 

However, you can also use DATA statements to 
set them up instead. 

10READA$,B$,C$,D$ 
20 PRINT A$,B$,C$,D$ 
100 DATA DAY,WEEK,MONTH,YEAR 

If you now wanted to use not four but fifty 
different headings, the first program would 
require an extra 46 statements, the second 
only one or two, depending on the computer 
and the size of the headings. 




Note that on the Spectrum the DATA words 
must be surrounded by quotation marks. So 
Line 100 is written as: — 

100 DATA "DAY","WEEK","MONTH", 
"YEAR" 



HOW READ AND DATA WORK 



How, in fact, do the READ and DATA state- 
ments work? When the computer comes 
across a READ instruction, it scans through the 
program until it comes across the first DATA 
statement. Then it assigns the first item of 
DATA to the variable in the READ command. 

So in the program above, the DATA string 
"DAY" is assigned to the variable A$, then 
"WEEK" is assigned to B$ and so on. 

DATA statements usually appear at the end 
of a program, where they do not 'get in the 
way' while the rest of the program is being 



written and de-bugged. But in fact they can 
go anywhere at all. The computer simply 
ignores any DATA statement unless a READ 
statement makes it do otherwise. This next 
program would work perfectly well: 

10 DATA GERMANY 

20 READ A$,B$ 

30 DATA FRANCE,ITALY,SPAIN 

40 READ C$,D$ 

Obviously, though, the program is easier for 
you to read if all the DATA is gathered together 
in one place. And there is one firm rule: the 
DATA must appear in the order that the 
computer will READ it. 

The number of items a single DATA list can 
hold depends on the maximum line length of 
your computer. As soon as one line is full just 
start another — the computer still takes them 
in order. 
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DIFFERENT TYPES OF DATA 



So far the DATA statements have been strings, 
but they could just as weli be numbers. The 
Spectrum and Acorn computers allow you to 
use variables and functions as well, so you 
could have a line looking something like this: 

DATA PARIS, 256,a*5 

(Again, you would need quotation marks 
around the "PARIS" on the Spectrum.) 

The variables in the READ command must 
be placed in the same order as the relevant 
DATA items. So the DATA line above would be 
read with the command: 

READ A$,N,X 

Note that the first variable is a string variable 
to match the first DATA item. But the next two 
are numeric variables because they are 
READing numbers. 



PROBLEMS WITH DATA 



It is easy to make mistakes when entering 
DATA. The main problems occur when you do 
not have enough items or you try to READ in 
the wrong kind. If the DATA line above had 
been wrongly typed in as DATA 256,PARIS,a*5 
then A$ would be ' 256 ' . Although wrong, except 
on the Spectrum it would not be rejected. 

It would be a different matter when the 
computer tried to READ the string 'PARIS' into 
the variable N. One of two things would 
normally happen. The computer might notice 
that the DATA was the wrong type and come 
back with an error message such as 'type 
mismatch' or 'bad data'. Alternatively, the 
computer might assume that PARIS was a 
variable name which it had not previously 
come across, and so would reply with some- 
thing like 'variable not found'. 

The other common error is supplying too 
few DATA entries. This often happens when 
you are using a loop containing the READ 
command, as in the program below. A slight 
mistake in the loop parameter, or an item of 
DATA accidentally left out, and the computer 
will try to READ past the end of the DATA list. 
The result is that the program stops with an 
error message like 'out of data'. 



SIMPLE DIRECTORY 



Here is a program that uses a loop to READ the 
DATA. It is a very simple telephone directory 
program. You enter the name of the person 
and the computer PRINTs out the number. 

a 

5CLS 

10 PRINT TAB{1 0,2) "TELEPHONE 

DIRECTORY" 
20 INPUT TAB(5,10) "PLEASE ENTER 

THE NAMED ",R$ 
30 FOR J = 1 TO 5 
40 READ N$,T$ 
50 IF N$=R$ THEN PRINT TAB(5,12) 

N$;'"S NUMBER IS: D";T$:END 
60 IFN$ = "END" THEN PRINT TAB(5,12) 

R$;"niSNOTINTHEUST' 
70 NEXT J 
500 DATA JENNY,62-4325,PETER,499- 

6262,DEBBIE,567-02206,MARK,44- 

9976,END,END 



ISD 

5CLS 

10 PRINT® 71, "TELEPHONE DIRECTORY" 

12 PRINT 

20 INPUT "PLEASE ENTER NAME";R$ 

30 FOR J = 1 TO 5 

40 READ N$J$ 

50 IF N$ = R$ THEN PRINT© 320,N$"'S 

NUMBER IS: D";T$:END 
60 IF N$ = "END" THEN PRINT® 320,R$; 

"□IS NOT IN THE LIST" 
70 NEXT J 
500 DATA ETHEL,3M2765,HUBERT, 

997-403,ARCHIBALD,77-40628, 

GERTRUDE,5666-99994,END,END 

5 PRINT "□" 

10 PRINT TAB(10)"TELEPHONE 

DIRECTORY" 
20 INPUT "H PLEASE ENTER THE 

NAME";R$ 
25 PRINT 

30 FOR J = 1 TO 5 
40 READ N$,T$ 
50 IF N$ = R$ THEN PRINT N$;"'S NUMBER 

IS:Q";T$:END 
60 IF m = "END" THEN PRINT R$;" □ IS 

NOT IN THE LIST" 
70 NEXT J 
500 DATA TOM,21-23233,JOHN,01-32358, 

JOE,22-45785,JANE,78-87779,END, 

END 



5CLS 

1 PRINT AT 2,6;"TELEPHONE 

DIRECTORY" 
20 INPUT "PLEASE ENTER THE NAME", 

R$ 
30 FOR J = 1 TO 5 
40 READ N$,T$ 
50 IF N$ = R$ THEN PRINT AT 10,1;N$; 

'"S NUMBER IS:n";T$: STOP 
60 IF N$ = "END" THEN PRINT AT 

10,3;R$;"D IS NOT IN THE LIST" 
70 NEXT J 
500 DATA "JENNY","43-1 5263", 

"DICK","43-14123" J "JULIE", 

"13-6531 2","BUSTER","1 3-71 824", 

"END","END" 



| 



Type in the program, but use the names and 
telephone numbers of your own friends in the 
DATA line. You can put in as many DATA items 
as you like but be sure to adjust the loop 
counter in Line 30. 

Note that the DATA list is terminated with 
END, END. This is so Line 60 can check if the 
end of the list has been reached. If the 
program has read this far it means it hasn't 
found the name and it PRINTs out a message to 
tell you so. END (or "END" on the Spectrum) 
has to be entered twice because Line 40 reads 
in mo DATA items at a time and you would get 
an 'out of data' error otherwise. 

Also note that the telephone number is 
read as a string. This is because it contains a 
punctuation mark — the dash — and so cannot 
possibly be a number. Strings in DATA can 
contain spaces if you like but not commas. 
Since DATA items are separated by commas, 
the computer would treat the comma as the 
end of that item. If you do need to enter a 
DATA string that contains a comma then 
enclose the whole string in quotation marks. 
This would be necessary in a DATA line like 
this: 

10READN$,A$,B$,C$ 
20 DATA ALBERT SMITH,"23, HIGH 
STREET", BRIGHT0N,BT6 4ST 

The first line of the address has to be written 
in quotes because of the comma after the 





Keeping track of your DATA 

Whatever they refer to, DATA lines often 
have one thing in common — it takes a 
good deal of time to work them out and 
type them in. This is all very well the first 
time round, but you may well need to 
come back to a program much later. 

Arranging the DATA neatly only takes a 
little longer, and can save you ages in the 
end. The best plan to follow depends on 
the DATA itself. 

Where the DATA defines a block 
graphic or something similar, arrange the 
program lines to correspond directly to 
the graphic rows. If the DATA follows a 
repetitive format (such as entries in a 
telephone directory, for example), ar- 
range each entry in exactly the same way 
in the program lines. 



number 23. (You would have to do this on the 
Spectrum anyway, for all these strings.) 



USING RESTORE 



With the methods covered so far, a program 
can READ through a list of DATA only once, 
unless you reRUN the program. To reREAD 
DATA you must incorporate a RESTORE state- 
ment within your program. 

For example, say you wanted to look up the 
numbers of several of your friends. The 
obvious thing to do is to put in an 'Another 
go' routine. First replace END or STOP in Line 
50 with GOTO 80 then add the following 
program lines: 

a 

80 PRINT TAB(2,20}"DO YOU WANT 

ANOTHER NUMBER (Y/N)?" 
90K$ = GET$ 

100 IF K$ = "Y" THEN GOTO 5 
110 END 



80 PRINT AT 12,0;"DO YOU WANT 

ANOTHER NUMBER? Y/N" 
90 PAUSE 
100 IF INKEY$ = "y'' THEN GOTO 5 

110 IF INKEY$ = "n" THEN GOTO 2000 



80 PRINT @32,"DO YOU WANT ANOTHER 
NUMBER(Y/N)?" 



90K$ = INKEY$:IFK$ = "" 

THEN GOTO 90 
100 IF K$ = iS Y" THEN GOTO 5 
110 END 

80 PRINT TAB(4)"DO YOU WANT 

ANOTHER NUMBER(Y/N)?" 
90 GET K$:IF K$ = "" THEN GOTO 90 
100 IF K$ = "Y" THEN GOTO 5 
110 END 

But what happens when you try to RUN the 
program? The first time through, the 
program works fine. But when you press a key 
for another go it fails due to lack of further 
DATA. This is because it came to the end of the 
DATA list on the first RUN. Fortunately there 
is an easy solution to this problem. Add: 

15 RESTORE 

This time the program keeps working every 
time. This is because the RESTORE command 
instructs the computer to go right back to the 
beginning of the DATA list. 

When you are developing a program it is a 
good idea to put a RESTORE statement near the 
beginning. This stops you from running out 
of DATA on trial RUNs. If you are likely to 
want to take out the RESTORE line later, put a 
REMark statement after it to remind you. 

By using RESTORE you can reuse a DATA list 
as often as necessary. This is particularly 
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useful in programs where things like labels, or 
headings for tables, need to be repeated at 
different times. For example, you can put the 
months of the year in a DATA list for some sort 
of calendar program which makes repeated 
use of these in tables or graphs. 

The RESTORE instruction is particularly 
useful when you want to keep READing 
through a list to search for a particular item — 
as the telephone directory program showed. 



USES FOR DATA 



DATA lists are extremely useful in all sorts of 
programs. You may have already used them 
for the user defined graphics (pages 8 to 15) 
and for drawing a maze (pages 68 to 74). You 
could also have the computer reading para- 
meters for music or sound effects. 

In adventure games, large numbers of 
DATA lines are frequently used to contain all 
the necessary text. Quizzes can store all the 
questions and answers in DATA lines. And 
arcade games in BASIC often use them to 
define both characters and backgrounds. 

Experienced programmers use DATA for 
assembly language or machine code 
programs. Such a program may consist of a 
short loop containing POKE commands which 
READ from DATA lists. 

In short, any program which contains 
standard texts, figures or functions can make 
good use of DATA lists. And with careful use, 
these lists can become a powerful program- 
ming tool. 



USIMG RESTORE POINTERS 



The only problem with DATA so far is that the 
information must always be called in the same 
sequence, starting from the same place. Using 
RESTORE, you can always go back to the 
beginning of a list even if you have not 
reached the end. But how do you jump into 
the middle of a list? 

On Acorn computers, and the Spectrum, 
there is a way round this. Rather than using 
just one list, you can actually use several, 
directing the computer to the appropriate 
one. In the graphics program (right and 
overleaf) try adding these extra lines: 

[J 

15INPUT""<T>HIN0R <F>AT 
HOUSE ">H$ 

1 6 IF H$ = "T" THEN RESTORE 2000 

17 IF H$ = "F" THEN RESTORE 1000 

18 IF H$o"T" AND H$< >"F" THEN 
GOTO 15 

2000 DATA 400,100,900,100,900,600, 

400,600,400,100 
2010 DATA 500,200,550,200,550,400, 

500,400,500,200,750,200,800,200 

800,400,750,400,750,200 
2020 DATA 600,100,700,100,700,400 

600,400,600,100 
2030 DATA 300,600,1000,600,650,800, 

300,600 



6 INPUT "OLD OR MODERN BRIDGE?"; 

y$ 

7 IF y$ = "o" THEN RESTORE 1000 

8 IF y$ = "m" THEN RESTORE 2000 

9 IF y$ <> "o" AND y$ <> "m" 

THEN GOTO 5 
2000 DATA 83, 84, 85, 86, 87, 88, 89, 

90, 90, 90, 90, 90, 90, 90, 90, 89, 

88, 87, 86, 85, 84, 83 
2010 DATA 42, 55, 63, 65, 63, 55,42 

The numbers following the RESTORE com- 
mands are known as the RESTORE pointers. 
They direct the computer to a particular DATA 
list beginning at that line number. So in the 
Acorn program, if you press F for a fat house, 
the RESTORE pointer becomes 1000, in Line 
17. In the Spectrum program, Line 7 has a 
similar effect. 

In fact if you want the computer to go to 
the very first DATA list a pointer is not 
necessary. RESTOREing without a line number 
is the same as RESTOREing with the number of 
the first DATA line. Line 17 in the Acorn 
program could have been written as IF 
H$ = "F" THEN RESTORE, with precisely the 
same effect. 



Restore pointers are very useful in games 
programming. In a lander-type game, for 
example, you can write the program to test 
whether you have crashed or landed safely. 
The DATA lists can then contain information 
for a crash sound or a victory fanfare, and the 
RESTORE pointer can point to the correct list. 



USING DATA FOR GRAPHICS 



DATA statements are very useful in graphics 
programs, to fix the coordinates for plotting 
and drawing or to call up ROM graphics. 
Using DATA in this way is ideal for irregular 
shapes such as those overleaf, as many more 
program lines would be needed using individual 
printing or drawing instructions. 

In some cases, though, DATA is not much 
use. And that is when you are plotting very 
regular shapes where the coordinates or the 
graphics shape can be calculated. There is an 
example of this in the Dragon and Tandy 
program where the castellations on the fort are 
calculated rather than listed out. 

The DATA in the programs below has been 
split into several lines deliberately. This is 
because modifying DATA can be difficult 
unless clear-cut divisions are made — just 
imagine returning to a program at a later date 
and trying to match DATA entries to each of 
the variables. You can, of course, follow 
through each of the READ instructions, but 
this is tedious for a long program. So section 
off each group of DATA statements and — if 
you can spare the memory — use plenty of 
REMs to make things a little clearer. 
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The following program draws a house: 

10 MODE 

15 RESTORE 

20 FOR N = 1T0 4 

30 READ X,Y 

40 MOVE X,Y 

50 FOR M = 1 TO 4 

60 READ X,Y 

70 DRAW X,Y 

80 NEXT M 

90 NEXT N 

100 READ X,Y 

110 MOVE X,Y 

120 FOR P = 1 TO 3 

130 READ X,Y 

140 DRAW X,Y 

150 NEXT P 

160 PRINT" "PRESS ANY KEY FOR 

ANOTHER GO" 
170 Q = GET 
180 CLS: GOTO 10 
1000 DATA 300,100,1000,100,1000, 

400,300,400,300,100 
1010 DATA 400,200,500,200,500,300, 



400,300,400,200,800,200,900,200, 

900,300,800,300,800,200 
1020 DATA 600,100,700,100,700,300, 

600,300,600,100 
1030 DATA 200,400,1100,400,650,600, 

200,400 

The DATA gives the coordinates for the 
various parts of the house. Line 1000 gives 
the main outline, Line 1010 the windows, 
Line 1020 the door and Line 1030 the roof. 
The main part of the program just sets up the 
loops to READ in the relevant bits of DATA and 
draw the lines. Line 20 sets up the loop to 
draw four rectangles — the main house, the 
two windows and the door — and Line 50 sets 
the loop to draw four sides to each rectangle. 
Finally, Lines 120 to 150 draw the three sides 
to the roof. 

Once the house is drawn you'll be asked if 
you want another go, and the program will 
repeat if you press a key — it doesn't matter 
which one, Notice the RESTORE in Line 15 to 
allow the program to reREAD the DATA. 



This program uses READ . . . DATA to help 
draw a bridge. If you enter and RUN the 
program in stages it will be easier to see what's 
happening, and to check that your typing is 
correct. So: 

10 FOR t = 74TO 80 STEP 3 
20 PLOT 35,t 
30 DRAW 175,0,-2.5 
40 NEXT t 

This bit uses a FOR . . . NEXT loop to help PLOT 
three points near the left-hand side of the 
screen, then draws an arched line from each 
point. In Line 30, you'll recognise that the 
1 75,0 means 'to a point 1 75 pixels to the right. 



of the starting pixel'. The —2.5 makes the 
line part of a circle, instead of straight. 

100FOR n = 18T0 39 

110 READ a 
120 PLOT n,45 
130 DRAW 0,a 
132 PLOT n + 188,45 

134 DRAW 0,a 
140 NEXT n 

1000 DATA 70,70,67,67,70,70,60,60, 
57,57,60,60,57,57,60,60,70,70,67, 
67,70,70 

This is the section that draws the towers. The 
loop between Lines 100 and 140, plus the 
number 45 (pixels from the bottom) in Lines 
120 and 132, PLOTs the bottom points of each 
of the closely-set vertical lines that draw the 
towers. 

Then Lines 1 10 and 1000 take over. Line 
1 10 tells the computer to READ, in Line 1000, 
the height (again in pixels) of each of the 22 
vertical lines. So the first line is 0, 70 — that is, 
vertical and 70 pixels high — the second line is 
0, 70, the third 0, 67 and so on. If you want to 
watch it happening, try inserting a temporary 

135 PAUSE 100 after Line 134. 

300 PLOT 0,75 

310 DRAW 255,0,-0.1 

320 PLOT 0,78 

330 DRAW 255,0, -0.1 

These lines draw the roadway, the —0.1 
producing a slight upward curve. And finally 

400 FOR r=62 TO 182 STEP 20 

410 PLOT r,78 

420 READ b 

430 DRAW 0,b 

440 NEXT r 

1010 DATA 42,55,63,65,63,55,42 



These lines produce the vertical ties between 
the arch and the roadway, the FOR ... NEXT 
loop helping to PLOT the starting positions of 
the ties while Lines 420 and 1010 govern 
their height. 

If you want the program to reRUN auto- 
matically, add these lines: 

5 CLS:RESTORE 
450 GOTO 5 

Line 5 clears the screen and then allows the 
program to reREAD the DATA. 

o 

The program here uses a READ . . . DATA 
routine to draw a country cottage from some 
of the ROM graphics on the Commodore 64: 

10 PRINT"Q" 

20 POKE 53280,3:POKE 53281,5 

30 FOR A=1 T0 7 

40 FOR B = 1 TO 14 

50 READ X 

60 POKE 1024 + 291 + (A*40) + B,X 

65 POKE 55296 + 291 + (A*40) + B,7 

70 NEXT B 

75 NEXT A 

500 DATA 32,32,32,32,32,32,32,32, 

32,32,108,160,123,32 
505 DATA 32,32,233,1 60,223,32,32, 

32,32,118,160,160,160,116 
510 DATA 32,233,160,160,160,223, 

32,92,32,160,160,160,160,160 
520 DATA 32,102,102,102,102,102, 

160,160,223,108,160,102,160,120 
530 DATA 32,102,91,102,172,102, 

102,91,102,32,32,102,32,32 
540 DATA 32,102,102,102,160,102, 

102,102,102,32,32,102,32,32 
550 DATA 99,99,99,99,99,99,99,99, 

99,99,99,99,99,99 




1. A house on the Acorn from just four DATA lines printer 2. A Spectrum bridge using PLOT and DRAW, plus DATA 



II 



Seven lines of DATA are used: these corre- 
spond to the seven screen rows (lines) which 
form part of the FOR . . . NEXT loop started in 
Line 30. The fourteen entries within each 
DATA line correspond to the fourteen columns 
specified in the FOR . . . NEXT loop beginning 
in Line 40. 

When the value of X — a screen display code 
(see your manual) — has been read as in- 
structed in Line 50, it is POKEd into screen 
memory as directed by Line 60. A corre- 
sponding POKE has to be placed into colour 
memory for the character to show: this is 
achieved by Line 65. In both these lines, the 
number 291 starts the graphic at a point 
towards the centre of the screen, but the 
actual position is dictated by the values of the 
variables A and B. Now key in the following 
lines: 

220 FOR K = 1 TO 2000 

230 NEXT K 

240 PRINT "DarJ PRESS ANY KEY 

FOR ANOTHER GO" 
250 GET K$:IF K$ = "" THEN GOTO 250 
270 GOTO 10 

RUN the program and respond to the prompt 
after the delay. Immediately you will see an 
'out of data' error message: there is no more 
DATA for the reRUN Line 50 to access. 
However, by simply adding: 

260 RESTORE 

which sends the computer back to the start of 
the DATA statement, the program can be RUN 
any number of times. 



This program will build up, in stages, a 
picture of a castle. Type in these lines and 
RUN them: 



10 PCLEAR4 

20 PM0DE4,1 

30 PCLS5 

40SCREEN1,1 

50 READ SX,SY 

60LINE-(SX,SY),PSET 

70 FOR K = 1 TO 18 

80 READ X,Y 

90 LINE— {X,Y),PRESET 

100 NEXT K 

270 GOTO 270 

500 DATA 64,160 

510 DATA 64,60,32,60,48,40,64,60,32, 

60,32,160,110,160,110,120 
520 DATA 152,120,152,160,228,160, 

228,60,212,40,196,60,228,60 
530 DATA 196,60,196,160,196,74 

Lines 10 to 40 set up the high resolution 
graphics screen ready for drawing. Line 270 
keeps it switched on. 

Lines 50 and 60 are unusual. The coordi- 
nates of the start point of the castle are read, 
and a buff line is drawn on the buff back- 
ground to the start point. Sometimes it's 
useful to be able to draw these 'invisible' 
lines, because they can join together visible 
lines in a continuous programming pattern. 

The lines from 70 to 100 draw the outline 
of the castle. By the end of this piece of 
program 38 items of DATA have been read. 

Now add these lines and you'll see some 
castellations when you RUN the program: 

110 FOR K = 1 TO 33 

120LETX = X-4 

130 LINE- (X,Y), PRESET 

1 40 IF Y = 74 THEN LET Y = 78 ELSE 

LETY=74 
150 LINE- (X,Y),PRESET 
160 NEXT K 



You're probably wondering what has hap- 
pened to the READ line. This is one occasion 
when using READ and DATA will not save you 
work — you'd need 66 items of DATA to define 
the corners of the castellations, so this way — 
checking positions — saves you typing all that 
extra DATA. 

These lines will draw some windows: 

170 FOR K=1 TO 8 

180 READ X,Y 

190LINE(X,Y)-(X+4,Y),PRESET 
200 LINE(X+2,Y-2)-(X-r2,Y + 6), 

PRESET 
210 NEXT K 
540 DATA 46,80,46,120,210,80,210, 

120,86,90,170,90,80,132,178,132 

Notice that you don't have to have DATA for 
each end of the windows, four sets in all. As 
they are all the same size only one set of DATA 
is needed per window. 

Now try adding these lines. RUN the 
program and see what happens. 

220 FOR K=1 TO 4000 

230 NEXT K 

240 CLS:PRINT@33,"PRESS ANY KEY 

FOR ANOTHER GO" 
250LETIN$ = INKEY$:IFIN$ = "" 

THEN GOTO 250 
270 GOTO 30 

When you press a key you will get OD or 'out 
of data' error. The reason for this is that the 
program has finished the list of DATA— there 
is no more. Fortunately you don't have to 
type in all the DATA again. Just add this line 
which makes use of the RESTORE statement to 
instruct the computer to go back to the start of 
the DATA list. 

260 RESTORE 




3. ROM graphics on the Commodore called up to order 



4. The Dragon/Tandy castle is built up in stages 
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NEFIN 



Computers count in twos— it's as if 
they had millions of hands but only 
one finger on each. And for effective 
machine code programming, it's a 
system you need to learn as well 



One of the problems of learning machine code 
is that you need to understand a little about 
the theory of numbers. This is not quite as 
daunting a task as it may seem. If you can 
count up to 16 you should have no difficulty. 
But first of all you have to learn how to count 
up to two. 



WHY BASE TEN? 



Even the most unmathematical person has no 
problem telling the time, working out their 
change or keeping track of football scores. 
The use of numbers is such a part of everyday 
life that we never give a thought to how they 
work. But when you start programming in 
machine code you need to take a closer look at 
the way numbers work. 

In the western world we use a number 
system based on the number 10. That means 
we start counting in the digits to 9, When 
we need a number higher than 9, we have used 
all the available digits. So we put a 1 in the 
next place to the left and a in the right-hand 
place. Ten is not represented by a single digit, 
but by two digits we've used before. 

If we go on counting, we go through the 
digits to 9 again in the right-hand place. 
And when we've reached 9 and add one more, 
1 is again clocked up in the next place to the 
left. And when that place has filled up to 9 and 
one more has to be added, a 1 appears in the 
next place to the left and the two right-hand 
places reset to 0. 

This is called a base-ten, or decimal, num- 
ber system, because the value of the digit is 
increased by a factor of ten in each place as 
you count from the right. For example, the 
number 3,275 is worth 5 + 7xl0 + 2x 
10 x 10 + 3 x 10 x 10 x 10— or 5 + 70 + 
200 + 3,000. Each digit increases its worth, 
by ten times its face value for every place it is 
moved to the left. 

All this seems very commonplace because 
we do it every day without thinking about it. 
So much so that, in base ten, it seems self 
evident. But we don't always use base ten. 



ANCIENT AND MODERN 



The ancient Babylonians had a system of 
numbers based on a unit of 60. The vestiges 
of this can still be seen in our measures of time 




and angles. There are 60 seconds in a minute, 
60 minutes in an hour, 60 minutes of arc in a 
degree and six times 60 degrees — in other words 
360 — in a complete circle. 

You can count up to 59 seconds, but if you 
add one more you clock up 1 minute and start 
counting the seconds from again. And when 
you have 59 minutes and 59 seconds, one 
more second will give you an hour, while the 
minutes and seconds places go back to 
before starting to count up again. 

The remnants of number systems with 
other bases can be seen, too, in the old 



imperial system of measurement. There are 
eight pints in a gallon, eight furlongs in a 
mile, eight stones in a hundredweight and 16 
ounces in a pound. Twelve is another base 
that occurs often. There are 12 inches in a 
foot, 12 old pennies in a shilling, 12 whatevers 
in a dozen and 12 dozens in a gross. 

Base 12 used to be used in British coinage, 
and for goods in dozens and grosses, because 
it was easy to divide by 2, 3, 4 and 6. Money 
and goods often have to be shared among 
more than one person and the base 12 made 
these transactions much easier to perform. 
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COUNTING IN BASE TEN 



OTHER NUMBER SYSTEMS 

HOW TO COUNT IN BASE NINE 
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BASES 
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BITS AND BYTES 



HOW THE COMPUTER ADDS UP 




Ten, on the other hand, is divisible only by two 
numbers — 2 and 5, 

It is often convenient to use a number 
system with a base other than ten. For 
example, a pound in weight can be broken 
down into ounces by repeated halving. 



NINE OF THE BEST 



There is no reason, in fact, why you can't use 
a system based on any number you like. For 
example, if we had all been born with one 
finger fewer on one hand, we should probably 
have a nonary — or nine-based — system. We 



1. Our ten fingers lead us to count in 
tens, and counting aids like the simple 
abacus or bead counter are a mechanical 
model for our fingers. 

would be able to count up through the digits 
from to 8 in the normal way. But if we added 
one more to 8 it would clock up the digit 1 in 
the next place to the left and return the first 
place to 0. In other words the decimal number 
nine would be represented in nonary by 10. 

Again if 1 was added to 18 you'd get 20, 
and if 1 was added to 88 you'd get 100. 

As you can see from the example below, the 
ordinary rules of arithmetic apply whatever 
number you base your number system on. 
You can try simple sums in an eight-based or 
seven-based system, for example. Whatever 
base you choose to do calculations in, the 
ordinary rules of arithmetic still apply. 

In our nonary system, for instance, as you 
move each place to the left the face value of 
the digit is increased by a factor of nine. So 
3,275 in nonary is equal to 5 + 7x9 + 
2x9x9 + 3x9x9x9 or 2,417 in deci- 
mal. But, you'll note, there is no digit 9 in the 
nonary system. Nine is represented by 10. So 
it would be just as correct to say that 3,275 is 
equal to 5 + 7x10 + 2x10x10 + 
3 x 10 x 10 x 10 in nonary. 

With a little bit of mental agility you 
should be able to do simple sums in nonary. 
For example, 99 x 9 equals 891 in decimal. In 
nonary, 99 is represented by 120 — that is 
1x9x9 + 2x9 or 81 + 18— and 9 is 10. 

So in nonary 99 x 9 translates into 
120 x 10 which is 1,200 or 1x9x9x9 + 
2 x 9 x 9 or 891 in decimal. 

Any addition, subtraction, multiplication 
or division of nonary numbers will work. 
Check for yourself. But you have to be a bit 
careful. Remember, for example that 16 in 
decimal is 17 in nonary, if you carry or borrow 
one in nonary it is only worth nine, and in 
division, 3 goes into 10 three times. 



PROBLEMS OF THE OVER-TENS 



Dealing with number systems with bases 
greater than ten is a little more difficult 
though. To handle them easily you have to 
devise new digits. For example, if you were to 



use a twelve-based number system you would 
need to invent digits to represent ten and 
eleven. In duodecimal, 10 would mean 
1x12, or 12. And 11 would mean 
1 x 12+1 — that is, 13 in decimal. 

The easiest way to extend the range of 
digits is to use the alphabet. Ten could be A, say, 
and eleven could be B . Some of your duodecimal 
numbers would look like this : A2, BA and 7B — 
or 122, 142 and 95 in decimal. 




A model for numbers in 
different bases 

It can be hard to visualize just how a 
different number system works, because 
everyone is so used to counting in tens. 
After all, it isn't easy to chop off some 
fingers, or grow extra ones, so you can 
count on them! But you can, for example, 
tape two fingers together to try base nine, 
or carry two extra tally sticks to work in 
base twelve, and so on. 

But a better model is to make your own 
bead counter — similar to the ones shown 
on these pages. Just as an ordinary bead 
counter or abacus can help to clarify and 
speed up conventional arithmetic in base 
10, so you can make a bead frame with as 
many counters on each line as you want. 
You don't even need to make a proper 
frame — just an arrangement of grooves in 
which you can roll the beads back and 
forth would be adequate. 

Don't forget that you need one less 
bead in each row than your number base. 
So in base ten you have nine beads and 
binary only needs one. No beads slid 
across equals zero, one bead slid across 
equals one and so on. When you get 
beyond nine, you 'carry' a one to the next 
row, and slide back all the beads to zero. 
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AIM ALL-BASE CALCULATOR 



Doing arithmetic in bases other than ten can 
lead to severe brain strain. So here is a 
program that will do arithmetic in any base up 
to 36. When you RUN it, it will ask you which 
base you want to use. Key the appropriate 
number in, in decimal. 

Next it asks you for a number. This should 
be entered in the base you have selected. If 
you've chosen base eight, you shouldn't use 
any digit over 7, for example. And if you've 
picked a base greater than ten, digits over 9 
should be keyed in using the letters of the 
alphabet, in capitals. Ten will be A, eleven B, 
twelve C and so on. 

Then the computer will ask you for an 
arithmetic sign. Key in + „* or /. After that 
you have to supply another number in the 
same base as before. 

If your sum is a division and the answer is 
not an integer, the computer will tell you that it 
will not work. 'Won't go' will be PRINTed on 
the screen. Otherwise the sum and its answer, 
in the base you've selected, will be displayed 
on the screen. 

o ^ 

20 INPUT "QBASE (UP TO 36)";B% 

30 INPUT "NUMBER (INTEGER}";A$ 

40 INPUT "SIGN";S$ 

50 INPUT "NUMBER (INTEGER)";B$ 

60 PRINT "□" 

70P$ = A$:GOSUB200 

80DA=D% 

90 P$ = B$:GOSUB200:DB = D% 

100 IF S$ = """ THEN X%= DA*DB 

102IFS$ = " + "THENX%=DA + DB 

104 IFS$ = "-"THENX%=DA-DB 

1 06 IF S$ = "/" THEN X% = DA/DB 

120AN$ = "" 

130 IF B%*(X%/B%-INT(X%/B%)) >9 

THENANS = CHR$(55 + B%* (X%/B% - 

INT(X%/B%))) + AN$:G0T01 50 
1 40 AN$ = RIGHT$(STR$(B%* (X%/B% - 

INT(X%/B%))},1) + AN$ 
150X%= INT(X%/B%) 
160IFX%>0THENGOTO130 

180 PRINT "□MHMMBASE";B% 
":D"A$S$B$" = "AN$ 

190 END 

200D% = 0:IX% = 

205Y = ASC(RIGHT$(P$,1)) 

210IFY<58THEND = Y-48: 

GOTO 230 
220D = Y-55 
230D% = D% + D*B%TIX%: 

P$= LEFT$(P$, LEN(P$)-1): 

IX% = IX% + 1 
240 IF LEN(P$) > THEN GOTO 205 
250 RETURN 



On the ZX81, type in the following program 
entirely in capitals. Omit Line 10 completely, 
omit LINE in Lines 30, 40, and 50, and use ** 
instead of f in Line 220. 

10 POKE 23658,8 

20 INPUT "BASE (UP TO 36) D";b 

30 INPUT "NUMBER (INTEGER) □"; LINE a$ 

40 INPUT "SIGN D"; LINE s$ 

50 INP.UT "NUMBER (INTEGER) □"; LINE b$ 

60CLS 

70LETp$ = a$:GO5UB180 

80 LET xS = STR$ dec 

90LETp$ = b$: GOSUB 180 

95 LET y$ = STR$ dec 

1 00 LET z$ = x$ + s$ + y$: LETx = VALz$ 

110 IFxoINT x THEN LET n$ = "WILL 

NOT GO": GOTO 160 
120LETn$ = "" 
130 LETu = INT (x/b): LETu = u"b: IF 

x-u>9THEN LETn$ = CHR$ 

(55 + (x-u)) + n$: GOTO 140 
135LETn$ = STR$(x-u) + n$ 
140 LET x = INT (x/b) 
150 IF x>0 THEN GOTO 130 
1 60 PRINT AT 1 0,0;a$ + s$ + b$;" = □ ";n$ 
170 STOP 
1 80 LET dec = 
190 LET index = 
200 LET y= CODE p$(LENp$) 
210IFy<58THENLETd = y-48: 

GOTO 220 
215 LETd = y 55 
220 LETdec = dec + d*bTindex 
230 LET p$ = p$(1 TO (LEN p$) - 1 } 
240 LET index = index + 1 
250 IF LEN p$>0 THEN GOTO 200 
260 RETURN 

H 

10MODE6:PRINT" 

20 INPUT "BASE (UP TO 36)",B% 

30 INPUT "NUMBER (INTEGER)",A$ 

40 INPUT "SIGN",S$ 

50 INPUT "NUMBER (INTEGER)", B$ 

60 CLS: PRINT" 

70P$ = A$:GOSUB180 

80 DECA$ = STR$(DEC%) 

90P$ = B$:GOSUB180:DECB$ = 

STR$(DEC%) 
1 00 X% = EVAL(DECA$ + S$ + DECB$) 
110 IFX%oEVAL(DECA$ + S$ + DECB$) 

THEN AN$= "WON'T GO": 

GOTO 160 
120AN$ = "" 
130 IFX%MODB%>9THEN AN$ = CHR$ 

(55 + X%M0DB%) + AN$ ELSEANS = 

STR$(X%MODB%) + AN$ 
140X% = X%DIVB% 



150 IFX%>0 GOTO 130 
160PRINTTAB(0,12)A$ + S$ + B$ + 

" = " + AN$ 
170 END 
180 DEC% = 
190INDEX% = 
200LETY = ASC(RIGHT$(P$,1)) 
210 IFY<58 THEN D = Y-48 

ELSE D = Y — 55 
220 DEC% = DEC% + D*B% a INDEX% 
230P$=LEFT$(P$,LEN(P$)-1) 
240INDEX% = INDEX% + 1 
250 IF LEN(P$)>0 THEN GOTO 200 
260 RETURN 

ISO 

10 CLS 

20 INPUT-BASE (UP TO 36) ";B 

30 INPUT-NUMBER (INTEGER) D";A$ 

2. Any number system can be modelled 
mechanically— the clock is in base 60, the 
bead frame in base 10 




IMACHINECODEI 



40 IN PUT"SIGN LT';S$ 

50 INPUT'NUMBER (INTEGER) LI ";B$ 

60P$ = A$:GOSUB210 

70X$ = STR$(DE) 

80P$ = B$:GOSUB210 

90Y$ = STR$(DE) 

100IFS$ = "*"THENX = VAL{X$) 

•VAL(Y$) 
110IFS$ = '7"THENX=VAL(X$) 

/VAL(Y$) 
1 20 IFS$ = " + " THEN X = VAL(X$) 

+ VAL(Y$) 
130IFS$ = "-"THENX = VAL(X$) 

-VAL(Y$) 
140 IFX< > INT(X) THENN$ = "WON'T 

GO":GOTO190 
150U = B*INT(X/B);IFX-U>9 

THENN$ = CHR$(55 + (X-U}) 

+ N$:GOTO170 
160 N$ = MID$(STR$(X-U) + N$,2) 
170X=INT(X/B) 
180IFX>0GOTO150 
190 PRINT@257,A$ + "D" + S$ + 



"n" + B$;"=LT';N$ 
200 END 
210DE = 
220 IN = 

230Y = ASC(RIGHT$(P$,1)) 
240 IFY<58 THEN D = Y-48:GOTO260 
250 D = Y-55 
260DE = DE + D"BflN 
270P$ = LEFT$(P$,LEN(P$)-1) 
280 IN = IN + 1 

290 IFLEN(P$)>0 THEN GOTO230 
300 RETURN 

If you find the whole idea of doing arithmetic 
in different bases more than you feel like 
handling, note that even the computer cheats. 
This program actually converts the numbers 
you've INPUT into decimal, does the arithme- 
tic, then converts the answer back into the 
base you've selected. Unlike the flexible 
human mind, your computer can do arithme- 
tic only in decimal in a BASIC program. 
(This, despite converting the numbers into 




binary when it translates the instructions into 
machine code to perform them!) 



AND NOW. BINARY 



In computers the most convenient number 
system to use is that based on two. This is 
because a computer is composed of electronic 
switching circuits which have two obvious 
states — off and on. The off state represents 
the digit and the on state the digit 1 . And in 
base two that is all the digits you need. 

The base-two number system is known as 
binary. It is composed of nothing but 0s and 
Is, all the other digits have been abolished. So 
if you start counting from you can get as far 
as I in the normal way. Add I to 1, and 1 is 
clocked up in the next place to the left while 
the first place returns to 0. So, in binary, 
1 + 1 = 10. 

Counting through from zero to eight gives 
0, 1, 10, 1 1, 100, 101, 1 10, 1 1 1, 1000. Again 
these numbers obey all the ordinary laws of 
arithmetic. For example: if you add 10+11, 
you first add the two right-hand digits, 0+ 1 . 
Then you add the two left-hand digits, 1 + 1 
which gives two, but two in binary is 10. So 
10+11 = 101— in other words, 2 + 3 = 5. 

Subtraction in binary is a similarly straight- 
forward process. The only thing to watch is 
when to carry. 

The beauty of binary is that even for 
human beings multiplication and division are 
extraordinarily easy. At each stage of a multi- 
plication you are either multiplying by 
(which gives 0), by 1 (which again gives 0) 
or 1 by 1 (which gives 1). 

In binary, in fact, multiplication is so easy 
that even a computer can do it. 

Long division is similarly simple. At each 
stage you only have to decide whether the 
divisor goes into the number that is being 
divided once or no times. 

Check for yourself that all the normal 
arithmetic processes work in binary. The panel 
on the next page gives a series of worked 
examples of addition, subtraction, multiplic- 
ation and division for you to try. 



BITS AND BYTES 



Binary numbers accurately reflect what is 
going on in the computer. Every instruction 
or piece of DATA you feed into the computer is 
encoded in binary which the switching cir- 
cuits of the computer manipulate and store. 
When you understand binary you begin to 
understand how the computer works. 

Each of the digits of a binary number is 
represented electronically in the computer by 
a circuit that is on or off. If it is on, the value 
is 1 . If it is off, the value is 0. Each digit circuit is 
known as a bit. 



mCHINECODEl 



To memorize and manipulate binary num- 
bers these circuits are organized into larger 
entities which can represent larger, more 
useful numbers. In nearly all home computers 
the bits are organized, into groups of eight, 
giving what is known as an eight-bit byte. 
That means each byte can represent eight 
binary digits, so it can store any number 
between 00000000 or zero, and 1 1 1 1 1 1 1 1 , or 
128 + 64 + 32 + 16 + 8 + 4-1-2-1-1 which is 
255. Numbers larger than 255 are represented 
by two bytes or more. 



BINARY FRACTIONS 



All the programs and examples shown so far 
have all dealt with whole numbers, but it is also 
possible to convert fractions into binary 
numbers. 

For example, § is 0.1 in binary, } is 0.01, j 
is 0.001. You may already be able to see a 
pattern emerging. In fact, any fraction can be 
made up of ^s, |s, |S, ^s and so on— just a s 
any whole number can be made up of Is, 2s, 
4s, 8s etc. It's just that it is more difficult to 
work out the binary equivalent of fractions 
because the series of 0s and Is is often infinite! 

When you're converting fractions, you can 
think of the js, |s etc. as .5, .25 and so on. Then 
you can fairly easily work out that a fraction 
such as .75 is made up of 1*.5+ 1*.25, which 
means its binary equivalent is 0.11. 

The next program gets the computer to 
work them out for you: 



20 PRINT@35,"DECIMAL TO BINARY 

CONVERSION" 
30 PRINT: INPUT"ENTER A NUMBER 

BETWEEN AND 1 ";N 
4.0 IF N< =0 OR N> =1 THEN 30 
50N$ = "0." 
60 FOR T = 1 TO 30 
70N = N*2 

B0N$ = N$ + CHR$(48 + INT(N)) 
90N = N-INT(N) 
100 NEXT T 
110 PRINT@257,"THE BINARY NUMBER 

IS:-" 
120 PRINT: PRINTNS: PRINT 
130 PRINT'-ANOTHER NUMBER {Y/N} ?" 
140A$ = INKEY$ 
150 IF A$ = "Y" THEN 10 
160IFA$o' [ N"THEN140 
170 END 



O Cl 



1AO 

10CLS 



20 PRINT "QDEC TO BIN 

CONVERSION" 
30 PRINT "HENTER A NUMBER 

BETWEEN 0-VMNPUTN 
40IFN<=0ORN>=1 THEN 20 
50NS = "0." 
60 FOR T = 1 TO 32 
70N = N*2 

80N$ = N$ + CHR$(48 + INT(N)) 
90 N = N — INT(N) 
100 NEXT T 
110 PRINT "jfiTHE BINARY NUMBER 

IS:-" 
120 PRINT "S"N$ 
130 PRINT "MANOTHER NUMBER 



(Y/N) ?" 
140 GET A$ 
150 IF A$ = "Y" THEN RUN 

160 IFA$o"N" THEN 140 
170 PRINT "□": END 



10CLS 

20 PRINT '"DECIMAL TO BINARY 

CONVERSION" 
30 INPUT "ENTER A NUMBER 

BETWEEN AND 1",N 
40 IF N< =0 OR N> =1 THEN GOTO 30 
45 PRINT ""DECIMAL: -D"jN 
50LETN$ = "0." 
60 FOR T = 1 TO 16 
70 LET N = N*2 + 1E — 9 
80 LET N$ = N$ + CHR$ (48 + INT N) 
90LETN = N-INTN 
100 NEXT T 
110 PRINT ""THE BINARY NUMBER 

IS:-" 
120 PRINTNS 
130 PRINT ""'"ANOTHER NUMBER 

(Y/N) ?" 
140 LET A$ = INKEY$ 
150 IF A$ = "Y" THEN GOTO 10 
160IFA$o"N"THENGOTO 140 
170 STOP 

IJ 

10 MODE 1 

20 PRINT'"DECIMAL TO BINARY 

CONVERSION" 
30 INPUT""ENTER A NUMBER 

BETWEEN AND 1",N 
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11M111 = 1*3 

1MM1I = 34 

1H3 <■ 34 = 137 

taaeiMi - 137 
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1. Binary addition works from the right. + gives 0. and 1 
give 1. 1 and 1 give 10, which is and carry 1. Check how this 
works through the sum above 



2. Binary subtraction is similarly simple. 1-1 gives 0. from 
1 gives 1, while if you try to take 1 from 0, you must carry this 
over to the next digit to the left 
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40 IF N< =0 OR N> =1 THEN 30 

50N$ = "0." 
60FOT=1TO32 

70N = N*2 

80N$ = N$ + CHR$(48 + INT(N)) 

90 N = N — INT{N) 

100 NEXT 

100 PRINT'""THE BINARY NUMBER IS :-" 

120 PRINTNJ 

130 PRINT "ANOTHER NUMBER (Y/N)?" 

140 A$ = GETS 
150IFA$ = "Y"THEN10 
160IFA$o"N"THEN140 
170 END 

The program accepts any number between 
and 1 and then PR I NTs out its binary equiva- 
lent. Line 70 starts by doubling your number 
then Line 80 builds up the binary number one 
character at a time. The computer first works 
out the value of INT(N), which will be either 
or 1, then this is added to 48 to make either 48 
or 49— which are simply the ASCII codes for 
"0" and "1". All this is doing in effect is to 
turn the numbers into strings so they can be 
joined on to N$. Line 90 takes the integer away 
from N to leave just the fractional part. 

The Sinclair program is slightly different 
because while INT 1 is 1 as you would expect, 
INT (.5*2) comes out as 0. This is because it 
stores .5*2 as .99999999. ... So a small frac- 
tion has to be added on to N in Line 70 to tip 
the balance and make INT work as it should. 

3. A binary abacus only needs single 
counters — in a computer, pulses of 
electricity in a circuit can do the job 
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1101 

X 1811 



1101 = 13 

tan - n 

13 X 11 = 143 

100)0111 - 143 
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J 1181 
101 



bob 
iei 




iei - s 

11891 - 25 
25 • 5 = 5 
101 = S 





3. At each stage of a binary multiplication, you either 
multiply by 0, which gives 0, by 1 , which also gives 0, or 1 by 
1, which gives 1. See how this applies in the example above 



4. In binary long division you have to check whether the 
divisor goes into the number you are dividing once, in which 
case you enter 1, or no times, when you enter a ■ 



FROM THE ABACUS TO ELECTRONICS 







101 i 101 i-0i00i 101=01 i0i i 10 
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T 



011111 1 1 + 0000000 1 = 10000000 



f 



110011 1 1 1101 1 11 0-01 1 1011000110011 = 0101 1001 1010101 1 



16 



Binary numbers can be added, subtracted, multiplied 
and divided like any other numbers, but were chosen for 
use in computers for their unique property — it is easy to tell 
if a circuit is on, or if it is off. 

Binary digits are represented by computer circuits. 
When a circuit is off it represents a 0, when it is on it 
represents a 1. In the chips in your home computer the 
binary circuits are arranged in eights so eight-bit binary 
numbers can be represented. This gives a range of 
00000000, or in decimal, to 11111111, or 255 in decimal. If 



you look through your computer's manual you will find the 
number 255 — or 256 if you start counting from 1 instead of 
— comes up over and over again. 

For some purposes larger numbers are required and two 
eight-bit binary memory locations are taken together to 
represent a 16-bit binary number. The Dragon micropro- 
cessor can handle these and sometimes does its arithmetic 
in 16-bit binary. In this case, numbers between 
0000000000000000 and 1111111111111111, or and 65,535 in 
decimal, can be handled. 
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MAKING A NEAT DISPLAY 
HOW TO USE SPACING 



Good screen display makes your 
instructions readable and your tables 
understandable. It's all a matter of 
using the right commands 

PRINT and INPUT are two of the first com- 
mands that programmers learn. They are 
used all the time and in all sorts of programs 
and you should have a fairly good idea of how 
they work. But you may not be using them to 
their full advantage. 

There are many ways of laying out text on 
the screen, and it is important to make a good 
display, especially if you write programs that 
you want other people to use. If the screen is 
too full of confusing instructions or the text is 
all jumbled up, then many people will become 
impatient and won't take the trouble to read 
it. Your carefully worked out quiz, chart or 



game will then be useless. 

So whatever sort of program you are 
writing, the text and instructions must be easy 
to read, and if you want someone to INPUT 
information it must be obvious exactly what 
you want. 

Each computer has its own way of position- 
ing text on the screen. The commands are 
usually TAB, AT, the @ symbol, or the cursor 
control characters. Punctuation — commas, 
semicolons and apostrophes — are also used to 
separate different PRINT statements. 

This article explains how to make full use 
of all these commands so you can make neat 
and readable displays that are understandable 
at a glance. 



You probably know that a command like this: 



PRINT "Good morning" 

will PRINT the message on the first clear line 
starting at the far left. If you clear the screen 
first: 

10CLS 

20 PRINT "Good morning" 

it will PRINT it on the top line of the screen. 
The computer is doing just the same as you 
would if you were given a clean sheet of paper. 
But you can tell the computer to PRINT the 
message at a different position. Add this line 
to the last program: 

30 PRINT TAB(20) "Good afternoon" 

This PRINTS out the words starting at column 
20, halfway across the screen. Each word can 
be positioned separately if you want, using 
two TAB statements. 
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Try changing Line 30 to: 

30 PRINT TAB(20) "Good" TAB(30) 
"afternoon" 

This now PRINTS the first word at column 20 
and the second word at column 30. 

Note that there is no space between the 
keyword TAB and the first bracket. If you did 
leave a space the computer would not under- 
stand what you wanted and would PRINT a 'no 
such variable' error. 

If you want the message PRINTed on a 
different line then you must put two numbers 
in the brackets. For example, this next line 
PRINTs the words at column 20 as before, but 
this time on line 15: 

40 PRINT TAB(20,1 5) "Good night" 

TAB with just one number is useful after 
you've already used one TAB command to 
move to a different line. For instance, to 
position two words (or numbers) on a single 
line, first move to the first item with 
TAB(column, line) then PRINT the second item 
at TAB(column) — you are already on the cor- 
rect line. 

But note: in this case the number in the 
second TAB is the number of columns from 



the last one, not the absolute position on the 
screen. So this line from a program is quite 
acceptable: 

50 PRINT TAB(20,1 7) "first" TAB(8) 
"second" 

The word "second" is PRINTed 8 columns 
after the word "first", at column 28, not at 
column 8 as you might think at first. 

If you tell the computer to PRINT beyond 
the end of the line — TAB (85) for instance — it 
just counts on to the next line or even several 
lines until it has moved the correct number of 
columns. 

It is worth experimenting with the TAB 
command to get a better feel for what it will 
and will not do. 



INPUTTING INFORMATION 



TAB can be used with INPUT as well as with 
PRINT. Here's an example: 

1 INPUT TAB(1 ,5)"Please enter your 

namen",name$TAB (1,6}"and 

your age □ ",age 
20 PRINT TAB(1, 10) "NameD";name$; 

"□ageO";age 

This will PRINT the first instruction at column 



1, line 5 and then prompt you with a question 
mark for an INPUT. Whatever you type is 
stored as 'name$\ The next instruction is 
PRINTed on the next line exactly below the 
first and another question mark prompts you 
for the second INPUT which is stored as 'age'. 
This is a numeric variable so you must type in 
a number. Line 20 simply PRINTs out name 
and age so you can see that the information 
has actually been stored. 

If you don't want the question mark, 
simply miss out the commas in Line 10. This 
would be necessary in a line such as: 

INPUT "Cost of item £" cost 

as a question mark would spoil the display. 
'Cost of item £67.45' is obviously much 
better than 'Cost of item £?67.45'. 

Here's a short program that makes use of 
INPUT TAB. It allows you to enter cricket 
scores and automatically tabulates them into 
neat columns on the screen. There's no need 
to work out the batsman's average for the last 
column — the computer does this for you and 
PRINTs out the result as soon as you have 
entered the other figures. 

10CLS 

20 PRINT' TAB(1) "NAME" TAB(13) 



"INNINGS" TAB(22) "RUNS" TAB(29) 

"NO." TAB(35) "AV" 
30 LET ROW =3 
40 INPUT TAB(1, ROW) N$ 
50 INPUTTAB(13,ROW) I 
60 IN PUT TAB (22, ROW) R 
70 INPUT TAB (30, ROW) N 
80 IF I <> N THEN PRINT TAB{35,ROW); 

»NT((R/{I — N))*100)/100 ELSE 

PRINT TAB(35,ROW)"*" 
90 LET ROW = ROW + 1 
100 GOTO 40 

The average is worked out in Line 80. It looks 
rather complicated but this is only so the 
result is given to two decimal places. The 
straightforward average is runs divided by 
(innings minus 'not outs') but this would be 
calculated to 9 decimal places. This is much 
too accurate for our needs, and would also 
mess up the display as the numbers would run 
into each other. 

One other complication is that if the 
batsman has as many 'not outs' as innings you 
will get an error report — 'division by zero' — 
when it tries to work out the average. So Line 
80 also checks whether I equals N, and if it 
does then it PRINTs out an asterisk in place of 
the average. 



USING PUNCTUATION MARKS 



As you have seen, TAB is used to position text 
and get INPUTs at any position on the screen. 



But there are other ways of laying out or 
displaying information without using TAB. It 
is simply a matter of using the correct 
punctuation — either commas, semicolons or 
apostrophes. When you get the hang of these 
tricks you'll find that in a lot of cases, 
especially with columns of Figures or words, 
the information can be positioned very easily 
with hardly any effort on your part and only 
the occasional TAB statement. 

Try these next few lines to get a feel of how 
it works: 

5CLS 

10 PRINT "01234567890123456789 

01234567890123456789" 
20 PRINT 9;9;9 
30 PRINT 9,9,9 
40 PRINT 9'9'9 

(Line 10 just numbers the columns along the 
top of the screen for reference.) Notice care- 
fully how the punctuation affects where the 
numbers are PRINTed. The numbers sep- 
arated by a semicolon are PRINTed next to 
each other. A comma separates the numbers 
into 'fields', each 10 columns wide. And an 
apostrophe puts each number on a new line. 
Now try the same program with letters 
(that is, strings) instead of numbers. Add 
these lines and RUN the program again: 

45 LET A$ = "A" 
50 PRINT A$;A$;A$ 




1. The semicolon can be used with PRINT or INPUT to control how the 
information is displayed. Each item is put on the screen immediately following 
the one before, on the same line 



60 PRINT A$,A$,A$ 
70 PRINT A$'A$'A$ 

Here you'll notice that the punctuation marks 
do the same thing but that strings are always 
PRINTed at the left of each 10-column field 
while numbers are PRINTed at the right. 

This does actually make sense. If you wrote 
out a column uf words you would normally 
line them up at the left, but you'd almost 
certainly line up a column of figures on the 
right so the units, tens, hundreds, and so on 
were all in line. And this is just what the 
computer does. 

Type in and RUN this next program. See 
how the computer lines up the figures and 
then adds them up — just as you would if you 
were doing the sum on paper. 

10 PRINT 14'67'245'42'811 

20 PRINT '14 + 67 + 245 + 42 + 811 

If you want several columns then use the 
comma. Here's a program to PRINT out the 
square, cube and fourth power of all numbers 
from 1 to 10. 

10CLS 

20 PRINT TAB(4)" NUMBER" TAB(H) 
"SQUARE" TAB(26)"CUBE" TAB(31) 
"4TH POWER" 

30 FOR J = 1 TO 10 

40 PRINT J,J , J,J*J , J 1 J , J , J'J 

50 NEXT J 

The numbers are PRINTed out at Line 40 and 
the commas make sure that each number is 
lined up in a separate field. Note that the 
headings to the columns do need to be 
positioned using TAB. If you used commas 
here, the headings would be lined up at the 
left of each field and would not be above the 
numbers. 

The semicolon is also extremely useful. It 
is often used after a TAB statement so that 
what comes next is PRINTed without any 
spaces in between. The semicolon is not 
actually necessary if you are PRINTing out 
strings because, as you know by now, strings 
are always PRINTed to the left anyway. But it is 
essential when you're PRINTing numbers and 
you must put it in if you want the numbers 
PRINTed at the TAB position. 

The semicolon is also useful at the end of a 
PRINT statement as it keeps the cursor there 
ready for the next PRINT item — which may 
come some time later. This last program 
PRINTs out the alphabet using a FOR . . . NEXT 
loop to step through the ASCII codes for the 
characters from A to Z: 

10CLS 

20FORcode = 65TO90 






30 PRINT CHR$(code); 
40 NEXT code 

Try it without the semicolon and you'll find 
that each letter is PRINTed on a separate line. 
The punctuation marks and TAB offer such 
a variety of ways to display text on the screen 
that you're sure to find some combination 
that suits your particular program. It just 
takes a bit of practice to know exactly what 
each one can do. 



The Sinclair machines have three statements to 
make things on the screen look neater: PRINT, 
PRINT AT and PRINT TAB. 

PRINT, preceded by a line number and 
followed by nothing at all, is the simplest. It 
just PRINTs a blank line. A couple of examples 
are in the cricket program (see below). 

PRINT AT you have probably met before but 
it deserves a slightly fuller explanation: 

The Spectrum screen has 22 lines, num- 
bered 0-21 from the top of the screen. It has 
32 'columns', or character places, numbered 
0-31 from the left of the screen. The line 
number is always given first. So these lines: 

PRINT AT 0,0;"*" 
PRINT AT 21,0;"*" 

PRINT AT 0,31;"*" 
PRINTAT 21, 31; "*" 

will PRINT a star at each corner of the screen. 
If you tell the computer to PRINT more than 
one character at a particular screen location, it 
will PRINT the first character where you tell it 
to, then just carry on in the same line. 

PRINT AT 10, 12; "LENGTH" 

... for example, puts the ' L' at 10, 12 and the 

other letters at 10, 13 to 10, 17 respectively. 
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This screen picture (this example was 
generated on the Spectrum) shows you how 
you can use a semicolon to join up your 
screen messages. Try a program like: 

10 PRINT "message"; 
20 GOTO 10; 




2. Apostrophes are not used on all machines. When they are available, they 
instruct the computer to put the next item on a new line, when it would not do so 
automatically 



And if what you want displayed will not fit 
in the line, starting from the location you 
specify, it will simply overspill into the line 
below — sometimes changing the meaning in 
the process. Try this, for instance: 

PRINT AT 5, 29; "TENANTS" 



PRINT TAB 



The PRINT TAB instruction on the Spectrum 
works in much the same way as PRINT AT. 
There are two differences, though: 

1. You do not have to specify the line. 

2. You cannot use PRINT TAB to overwrite — 
and therefore erase — any material on the 
screen. If you enter a new PRINT TAB at the old 
position the display drops down a line. 

To make the difference clear in your mind, 
first try this: 

PRINT AT 0,15;""" 
PRINT AT 0,15;"?" 

Then clear the screen (CLS) and try this: 

PRINT TAB 15;"""; 
PRINT TAB 15;"?"; 

For reasons explained below, be very careful 
with the punctuation. 

PRINT TAB has no great advantage over 
PRINT AT — until, that is, you have a lot of 
tabulated material to enter. Then it saves a lot 
of typing, and also having to remember line 
numbers as you go. 



This little program, for example, allows 
you to enter a series of cricket scores and 
tabulates them neatly on the screen. It also 
works out the batsman's average. Enter all the 
lines in capitals on the ZX81: 

10 PRINT TAB 14;"INNS";TAB 19;"RUNS"; 

TAB 24;"N.O.";TAB 29;"AVG" 
15 PRINT 

20 INPUT "Name?";n$ 
30 PRINT TAB 0;n$; 
40 INPUT "Innings?";! 
50 INPUT "Runs?";r 
60 INPUT "Not outs?";n 
80 PRINT TAB 14;i;TAB 19;r;TAB 24; 

n;TAB29;INT(r/{i-n)) 
90 PRINT 
100 PAUSE 200 
110 GOTO 20 

The program looks neat on the screen partly 
because of the tabulation and partly because 
Line 90 PRINTs a blank line under each 
batsman's figures. 

It is also easy to use. When you first RUN it, 
it will first ask you for each batsman's name, 
then his other details. When it asks for 'Runs?' 
there is no need to perform feats of mental 
agility to add his newest score to his previous 
total — you just let the computer do the work. 

There are two snags in the program as it 
stands, though. The first is that the average 
calculated by the last bit of Line 8$ is alwavs 
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rounded down to a whole number. How to 
deal with such number complications is in a 
later article, but if this average is too coarse 
for you you can always enter a separate PRINT 
TAB line for the average and have it calculated 
to ten decimal places! 

The second 'catch' is that should a batsman 
have as many 'not outs' as innings you will get 
an error report: Number too big. This is 
because this tail-ender's theoretical average is 
actually infinity! 

To deal with the problem, delete the 
existing Line 80 and add these new lines: 

70 IF i = n THEN PRINT TAB 14;i;TAB 

19;r;TAB 24;n;TAB 29;"*" 
80 IF i <> n THEN PRINT TAB 1 4;i;TAB 

19;r;TAB 24;n;TAB 29;INT (r/(i-n)) 

To escape from the program with out clearing 
the screen, you will need to press ICAPS SHIFfl 
and | BREAK] together (] BREAK] alone on the 
ZX81). Line 100 gives you time to do this before 
the computer demands another name. 

A program to tabulate and calculate at the 
same time is also quite straightforward. Here 
is one simple example, the raw beginnings of a 
household accounts program: 

10 PRINT TAB 0;"DATE";TAB 10;"ITEM"; 

TAB 26;"COST" 
15 PRINT : PRINT 
20 LET total = 
30 FOR I = 1 TO 8 
40 INPUT "Date?";d$ 
50 INPUT "ltem?";i$ 
60 INPUT "Cost?";c 

70 PRINT TAB 0;d$;TAB 10;i$;TAB 26;c 
75 PRINT 

80 LET total = total + c 
90 NEXT I 

110 PRINT TAB 26;" "; 

120 PRINT TAB 10;"Total";TAB 26;total 



WATCHIMG THE DOTS 



All your efforts to make a neat and tidy screen 
display will instantly be spoiled if you get the 
punctuation wrong, especially with a PRINT 
TAB statement. 

Normally, two sets of semicolons are used 
after a PRINT TAB statement. To see why, try 
this tiny program: 

10FORn = 1T0 21 

20 FOR t = TO 24 STEP 6 

30 PRINT TAB t; n; 

40 NEXT t 

50 NEXT n 

When you have RUN it, change Line 30 to: 

30 PRINT TAB t, n; 

. . . and then compare it to this: 
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Another actual screen example shows the 
force of the apostrophe in aprogram line like: 

10 PRINT "message"' 
20 GOTO 10 



30 PRINT TAB t; n 

You can puzzle out, if you wish, why you get 
the results you do, but it is not important. 
What is important are these rules: 

1 A semicolon means, 'close the next word 
(or whatever) up tight, without a space'. 

2 A comma means, 'start the next word (or 
whatever) at the beginning of column or 
column 15, whichever comes first'. 

3 And a PRINT TAB statement needs two sets 
of semicolons, unless you want a terrible 
mess! 

The easiest way to display a message on the 
screen is like this: 

PRINT "HELLO" 

'Hello' will appear at the far left of the screen 
on the next available line— if PRINT "HELLO" 
is on the last line of the screen the screen will 
scroll to make room for the message. You 
must be careful to type the inverted commas 
or else you will get an error report. 

In this form all the programming clutter 
remains on the screen as well as the message. 
It would be better if the message appeared on 
a clear screen. Here is what you need to do: 

10 CLS 

20 PRINT "HELLO" 

I t's j ust like giving the computer a clean piece of 
paper to write on . 'Hello' now appears in the top 
left on an otherwise blank screen. Add this line 
and RUN the program: 

30 PRINT "GOODBYE" 

'Goodbye' will appear directly below 'Hello'. 
Suppose you want a gap between 'Hello' and 
'Goodbye' to space out the display a little. 



Add this line and see what happens: 

25 PRINT 

There will now be a blank line inserted 
between 'Hello' and 'Goodbye'. 

You've now got some degree of control 
over how your messages are arranged verti- 
cally on the screen, but still no control over 
where the message will appear on each line. 
Suppose, for instance, you want to display 
'Hello' towards the middle of the line. The 
computer has a command called PRINT TAB 
which allows you to place your message 
anywhere you like along the line. 

When you add this line and RUN the 
program you'll see what effect PRINT TAB has: 

40 PRINT TAB(15};"G00D AFTERNOON" 

The spaces on each line of the screen are 
numbered from to 31 starting from the left. 
The message in Line 40, then, will start on 
space number 15. Be careful not to leave a 
space between TAB and the bracket — if you do 
(15) will be treated as a variable and TAB won't 
work. Also be sure to include the semicolon, 
TAB is short for 'tabulate'. This program 
shows you how useful TAB can be: 

10 CLS 

20 PRINT"NUMBER";TAB(7);"CUBE"; 

TAB(13);"SQR";TAB(18);"SQR-RT"; 

TAB(26);"RECIP" 
30 FOR J = 1 TO 12 
40 PRINT TAB(1);J;TAB(6);J*J\J; 

TAB(12);J'J;TAB(17);INT(SQR{J)* 

1000)/1000;TAB(25);INT(1000/J}/ 

1000 
50 NEXT J 

When you RUN the program you'll see a table 
of numbers being built up. Every time the 
program goes through the loop another line of 
figures is displayed on the screen. The use of 
PRINT TAB allows you to place each figure in 
the right column. 

If you are puzzled by the multiplying and 
dividing by 1000 in Line 40 the explanation 
is that this yields a figure correct to three 
decimal places. 

Suppose you want to PRINT at a specific 
place on the screen — not just on the next 
available line. In this case PRINT TAB isn't 
good enough. Instead you must use PRINT@. 
Try this program: 

10 CLS 

20 PRINT® 463,"LOW" 
30 PRINT© 71,"HIGH" 
40 PRINT© 257,"LEFT" 
50 PRINT® 282,'RIGHT" 

You'll see that the words appear in the 
appropriate positions on the screen. 



The numbers after PRINT@ refer to screen 
locations, which on the Dragon and Tandy are 
numbered from left to right starting at the top of 
the screen. 

Here is a program which uses both PRINT@ 
and PRINT TAB: 

10CLS 

20 PRINT "NAME";TAB(7);"INNS"JAB(13); 

"N-0'S";TAB(19);"RUNS";TAB(26);"AV" 
30 PA =32 
40PRINT@448,"":PRINT@448, U NAMED";: 

INPUTNS 
50 PRINT@448,' [ ":PRINT@448, 

"INNINGSD";:INPUTIN 
60 PRINT@448,"":PRINT@448,"N0T- 

0UTSD";:INPUTNO 
70 PRINT@448,"":PRINT@448,"RUNSD ";: 

INPUT RU 
80 PRINT@PA,N$;TAB(7);IN;TAB(1 2);N0; 

TAB(18);RU;TAB(24); 
90 IF N0 = IN THEN PRINT'D*" ELSE 

PRINT INT(100*RU/(IN-NO))/1 00 
100PA=PA + 32 
110 IF PA < 448 THEN GOTO 40 ELSE END 

When you RUN the program Line 20 displays 
the column headings at the top of the screen. 
Lines 40 to 70 clear a line of the screen and 
ask for information. 

Line 80 tabulates the information you have 
just given the machine, and Line 90 calculates 
the average. If the average is going to be 
infinity — caused by the machine trying to divide 
by zero — an asterisk is displayed. 

The variable PA allows the machine to check 
that the screen hasn ' t been filled. When the table 
has filled the screen the program stops. 



PUNCTUATION 



Punctuation is very important when you are 
displaying information on the screen. Com- 
mas and semicolons control the position of the 
cursor — the flashing black square under 
which the characters appear. Type in: 

10CLS 

20 PRINT "THE CURSOR WILL RETURN" 
30 PRINT "WITHOUT A SEMICOLON" 
40 PRINT "BUT WITH A SEMICOLOND"; 
50 PRINT "THIS HAPPENS" 

When you include a semicolon in a program 
line — but outside inverted commas — the cur- 
sor doesn't return to the beginning of the next 
line. The cursor stays exactly where it was 
when it finished PRINTing. The next PRINT 
statement continues directly after the last one. 
Add these lines to the program and RUN it: 

60 PRINT "BUT WHAT ABOUT", 
70 PRINT "USING", 
80 PRINT "COMMAS", 
90 PRINT "?" 



The computer's screen is divided into two 
halves. When you put a comma at the end of a 
PR I NT line the cursor will jump to the next half of 
the screen. Commas can, therefore, provide you 
with a rudimentary form of tabulation. 

Cf & MHBMHH 

Cursor controls, punctuation, POKEs. 
PRINTing functions and spaces can a!! be 
used — singly or together — to smarten up your 
Commodore screen displays. 



PRINTING FUNCTIONS 



Perhaps the most commonly used of the 
cursor positioning instructions is the TAB 
function. This behaves, on screen, like the tab 
facility of a typewriter, positioning the cursor 
so many character spaces, or columns, from 
the left-hand edge of the screen text area. It 
takes the form: 

10 PRINT TAB(10) "HELLO" 

You can place a semicolon after the brackets, 
but this isn't necessary. There must be no 
space between TAB and its bracketed argu- 
ment, the value of which is the starting point 
of the PRINTed string. 

Multiple TABs may be used to position 
several comments on each screen line, or row: 

1 A$ = "GOOD" :B$ = "MORNING" 
20 PRINT TAB(5)A$TAB(10)B$ 

The result is that G is printed in column 5 and 
M in column 10 — the argument value always 
starts at the left-hand edge of the text area. 
Now change Line 20 as follows: 

20 PRINT TAB(5)A$SPC(5)B$ 

Note that how, this time, the function SPC 
creates 5 spaces between the two words, 
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taking the end of the previous word as the 
starting point. Try changing the argument to 
115: note how the spacing continues over 
several lines. Values over 255 cannot be used. 

Several SPC functions may be included in 
the same PRINT statement, but remember that 
your screen is restricted to 25 lines of 40 
columns, and the total character spaces 
cannot exceed this. 

Both TAB and SPC can make use of vari- 
ables in their argument, as in this program. 
On the Vic 20, change the 1 in Lines 10 and 
40 to a 40. 

5 PRINT"Q" 

10 FORL= 1 TO 10 

20 PRINT TAB(L)"T" 

SPC(L+1)"."SPC(L + 2} 

"LLT 

30 NEXT: R = L 

40FORL = 10TO1 STEP— 1 

50 PRINT TAB(L)"LTJ" SPC(R + 1) 

"."SPC(R + 2)"LL" 
60 NEXT 

This PRINTs a simple roadway perspective. It 
is an example of some of the unusual uses you 
can find for functions you'd normally use for 
'information' screens, such as menus. 

Not often discussed but nevertheless a 
function belonging to the same group is POS, 
which gives the value of the column (0 to 39) 
where the next PRINT position begins. This 
program PRINTs a random roadway. On the Vic 
change the 20 in Line 10 to 6, and the 25 in 
Line 30 to 12: 

10 PRINT "□": LET A = 1 : LET Z = 20 

20LETZ = Z + A: PRINT TAB(Z) 

"■tDQDf'i 
30 IF POS(0) >25 + RND(1)*9 OR POS(0) 

<5+RND(1)*9THENA=-A 
40 PRfNLGOTO 20 

The value following POS, the argument, is 
only a dummy value in this case. 



USING SPACES 



Simple screen formatting tasks can often be 
carried out by incorporating spaces within 
PRINT statements, and this often uses less 
memory for small spaces. 

10 PRINT "□ □ D D HELLO THERE" 

However, it is quite in order to include really 
long space strings where these are themselves 
used for formatting purposes in conjunction 
with 'string slicing' (covered in a later article). 
One of the less obvious advantages of using 
spaces in these ways is that they do PRINT as 
blanks, thus overwriting any screen in form- 
ation which may be present. TAB, SPC and 




3. Commas in PRINT or INPUT statements mean that the information will be 
displayed in columns. The Spectrum and Dragon have two columns, the 
Commodore has four and the Acorn computers have a choice of two, four or eight. 



embedded cursor controls do not do this and 
so it is sometimes necessary to include 
spaces — and 'backspace' cursor controls — 
with these so that blanking out can be carried 
out properly. More on this topic will be 
covered later in this article. 



POSITIONING AIDS 



Kach time a PRINT statement appears it will 
display on a new line. So: 

10 PRINT:PRINT:PRINT:PRINT:PRINT 
20 PRINT "THIS IS NOW SEVEN LINES 
BELOW THE 'READY' PROMPT!" 

This is simple but wasteful on memory and 
it's better to embed cursor-down controls 
within the PRINTing string. Enter NEW, then: 

10PRINT-HMSHHSM 

THIS IS NOW 8 LINES BELOW THE 
WORD 'RUN'" 

Various programs in Input have made use of 
this and other cursor controls. The problem 
of blanking out referred to earlier can be 
resolved by adding lines such as: 

20 FOR D = 1 TO 1000: NEXT 

30 PRINT'Q. ... AND THIS BLANKS 

iTALLOUTDnnnnDDDnnn 

DDDDaDDO" 
Here, the cursor-up embedded at the start 



of Line 30 causes the PRINTing to overwrite 
what is already on the screen. A more 
common use, though, is as part of an INPUT 
routine: 

10 PRINT "Q3 S& □ D NAMED □ □ □ 

INNINGSD D D DRUNSD □ DN.O. 

□ □AVnDDD":OPEN1,0 
20 PRINT "H"SPC(1);:INPUT#1,N$: 

PRINT 
22 PRINT "□U"SPC(10);:INPUT#1,E : 

PRINT 
24 PRINT "□"SPC(20);:INPUT#1,R : 

PRINT 
26 PRINT "□"SPC(27);:INPUT#1,N: 

PRINT 

28 IF EoN THEN PRINT" !!□" 

SPC(31);INT((R/(E-N))*100)/ 

100:GOTO40 
30 PRINT "Hn";SPC(32);"*" 
40 GOTO 20 

In this batting averages program, the cursor 
automatically jumps from column to column 
waiting for INPUT, first a name (without any 
commas!), then figures for numbers of inn- 
ings, runs and 'not outs', whereupon it leaves 
behind the calculated average. 

The svmbols in Line 10 represent 
CLR/HOME, (set) White, RVS ON. That in Line 
20 sets black, those in Line 22 cursor-down 
and purple, while the reversed out up-arrow 
symbol represents the setting of green. 



PUNCTUATION 



Almost so easy as to be forgotten about is the 
use of either the comma or the semicolon in 
connection with screen displays. By adding a 
semicolon to the end of a PRINT statement, 
you can join up a succession of other PRINTs: 

1 FOR A = 1 TO 400: PRINT "A";: NEXT 

RUN the program to display ten full lines of 
As, Not much use . . . but there is! Put a blank 
space in place of the A after PRINT and you 
have the basis of a blanking out routine (on the 
Vic, change the 400s to 220): 

10 FOR A=1TO400:PRINT"A";:NEXT 
15 FOR D = 1 TO1000:NEXT 

20PRiNT"nnnnnnnn 

nnn- 

30 FOR A=1TO400: PRINT" D";:NEXT 

This first PRINTs out the ten lines of As and 
then overwrites them with blank spaces. 

Commas can also serve a function: with a 
sequence of PRINT strings they can be used to 
format something like a table. On the 
Commodore 64 enter this: 

10 PRINT-rjCOLUMN 1'7'COLUMN 2", 

"COLUMN 3","C0LUMN 4" 
20 PRINVgj H ENTRY A'V'ENTRY B" 
30 PRINT'ENTRY C"„"ENTRY D" 

Line 10 splits up the headings using commas. 
If you check, you will see that each entry 
starts at (screen) column 0, 10, 20 or 30 — 
every ten character spaces across the width of 
the screen. These column positions are fixed: 
Lines 20 and 30 show how repeated commas 
can be used to skip from one to another by 
adding or omitting further commas. 



POSITIONING THE CURSOR 



Cursor controls can be used to duplicate 
the PRINT AT facility of other machines. 

Start by defining two strings of cursor 
controls, the first containing 39 cursor- 
rights (21 on the Vic), the second 24 (22) 
cursor-downs (these values cover the 
screen row and column positions): 

10C$= uuUfclUfcifeJU 

UfeJUfcJUfeJUUfciUIJfcJ 

UUUUUUU "-M- H 

Now, to place a PRINT statement at a chosen 
point, simply set the X (column) and Y (row) 
positions within the following program line. 
Once the string of cursor controls has been 
defined, vou can use it in other lines: 
500 PRINT "@"; LEFT$(C$,X); 
LEFT$(R$,Y);"C0MMENT" 
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MULTIPLE LETTERS 
MADE EASY 



Do you make mistakes when you're 
writing important letters? If so, 
here's a program which lets you edit 
a master letter, then produce copies 
to send to different people. 



Writing large numbers of similar letters — job 
applications, say — can be a long and tedious 
chore if you have to do it by hand. 

The program with this article aims to take 
the drudgery out of such jobs. It is a simpli- 
fied kind of text editor which allows you to 
enter one master letter and then produce 
repetition copies, each one slightly different if 
necessary. Some keyboards make this much 
easier than others, and note that there is no 
program for the ZX81 because of the limit- 
ations of its key pad. 'Real' keyboards are 
available as accessories for the Spectrum. 

Unlike a proper word-processing program, 
which would take hours to type in by hand, 
you cannot (except on Acorn machines) see 
exactly on your TV screen how the letter will 
look. But it doesn't matter: the program itself 
automatically avoids word 'splits' at the ends 
of lines. It also automatically puts a line of 
space between paragraphs — neater and more 
professional than indenting them. 

For important letters such as job applic- 
ations, a good printer (and ribbon!) is obvi- 
ously necessary. These are expensive, but if 
you do not yet own a printer, perhaps you 
could borrow the use of a friend's, or one at 
your local computer club. Printers are covered 
in detail in a later article. 



ENTERING THE PROGRAM 



Start by typing in the main program, without 
any DATA statements. Then SAVE it on tape or 
disk so you can use it for any letter. 

Before you print out your first letter you 
may need to make one small adjustment, 
depending on the printer you propose to use. 

First find out how many characters in a line 
your printer will accept. Then adjust your 
program both to suit this line length, and to 
allow for a suitable margin on either side. In 
all the programs, TL represents the total avail- 
able width, and LL the width of your typing. 

You can of course change these to suit 
yourself— if necessary, by making a last- 
minute adjustment to the program just before 
you start printing out your letters. 

Exactly how you make this adjustment 
varies from one computer to another: 

a 

Amend Line 30 in the program so that TL is 
the available printer width, and LL the width 
you want your letter. 

If you want to display your 
letter on the TV screen so that you can 
get an idea of what your letter will look like 
when printed, temporarily delete Line 70. 
But reinstate it before you go to the printer. 



Amend Line 10 in the program so that PL is 
the available printer width, and LL the width 
you want your letter. (In the example given, 
the widths are those available on the Sinclair 
ZX printer although for letter quality printing, 
this is not really suitable.) 

Amend Line 20 so that TL is the available 
printer width, and Line 30 so that LL is the 
width you want your letter. 

As it stands, Line 40 gives you the chance 
to see where the word 'turns' are on the TV 
screen. Before your letter is printed, change 
P = 0toP = 2. 

Cr EB 

Amend Line 10 so that TL is the available 
printer width, and also change it so that LL is 
the width you want your letter. 
Note: The Commodore program has been 

tested on a Commodore printer only. 



ENTERING YOUR FIRST LETTER 



Your letter consists of a series of DATA 
statements. Enter them as shown in the 
sample on page 128 (it is for the Dragon, but 
all the programs and entries you need on 
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HOW TO ENTER THE PROGRAM 
ADJUSTING THE PROGRAM 



TO SUIT YOUR PRINTER 



LAYING OUT LETTERS 



WITH 



ENTERING A LETTER 



ENTERING AND AMENDING 
YOUR MASTER LETTER 



PRINTING OUT 



A HARD COPY 



the other computers work in the same way). 

The DATA must start in Line 1000, and 
must start with your address — it would be an 
unusual letter that didn't! 

The first thing the computer will do is to 
search through the lines containing your 
address, find the longest line, and arrange the 
whole address neatly down the right-hand 
side of the paper. 

After that, the computer will make each 
line start flush left, the modern way of setting 
out a business letter. 

Note that each line of your letter must start 
with quotation marks, as with most DATA 
statements. Here's a list of what the other 
symbols mean: 

• The hash mark, # , means 'this line is part 
of my address. Set it to the right of the page'. 

• The dollar sign, $, means 'start a new 
paragraph, first leaving a full line of spaces 
above it'. 

• The ampersand, &, means 'start a new line, 
flush left, but do not leave a space above it'. 
(This is useful for the address of the person to 
whom you are writing.) 

• The multiplication sign, *, means 'centre 
this line (only)'. 

If you want extra line spaces — for example, 
between 'Yours faithfully' and your 



signature — all you have to do is insert some 
extra dollar signs, each enclosed in inverted 
commas, as shown. 

When you reach the end of your letter, two 
computers require an extra line: 

Enter an extra line number, followed by 

DATA$ 

Enter an extra line number, followed by 

DATA 



AMENDING YOUR. LETTER 



Since it is all in BASIC, you can if you wish 
SAVE your first (or draft) letter as part of the 
master program. 

In this case, the first step in amending a 
letter is to LOAD the program plus DATA. 
Then you can alter any line simply by editing 
it in the usual way. 

If you forget to SAVE your first letter, you 
can still produce an amended one — but you 
will have to type in the entire DATA instead of 
just a few amendments. 



PRINTINGTHE LETTER 



To print out your letter, you merely RUN the 
program, which turns the printer on automati- 
cally and then turns it off again after printing. 



If you try to RUN the program without having 
a printer connected, and without remembering 
to delete Line 70, notice that the beginning of 
the letter will appear on the screen then the 
computer will wait for it to be printed. To 
regain control, you must break into the 
program, delete Line 70 and RUN again. This 
time you'll be able to see the whole of the letter 
on the screen. 

The type of paper on which you print 
depends on the printer you use. Some printers 
give you a choice of either single sheets, which 
are best for formal correspondence, or folded 
paper. If you use folded paper, turn the paper 
forwards so that your letter begins on a whole 
page. Once the edges have been torn along the 
perforations, the page should be neat, but you 
could trim it with a sharp knife if necessary. 

If you have headed paper, then you will not 
want to print your address again. You must 
still start the DATA at Line 1000 but in this 
case it would start with the address of the 
person you are writing to, and you'll not need 
to use the hash ' # ' sign. 

a 

10 ON ERROR GOTO 480 

20 MODE0 

30LL = 60:TL=B0 
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40C$ = "" 

50LL=LL + 1 

60 D$ = STRING$({TL-LL)/2,"D") 

70 VDU2 

80 PRINTDS; 

90 READ A$ 

100A$ = A$ + "D" 

110IFASC(A$) = 35THEN 

PROCADDR 
120 IF ASC(A$) = 36 THEN PRINT"D$;: 

A$ = RIGHT$(A$,LEN(A$) - 1 ):LP = 
130 IF ASC(A$) = 38 THEN PRINT'DS;: 

A$ = RIGHT$(A$,LEN(A$) - 1 ):LP= 
140 IF ASC{A$) =42 THEN PROCCENT: 

GOTO90 
150 C$ = "" 

160FORT = 1TOLEN(A$) 
170B$ = M1D$(A$,T,1) 
180C$ = C$ + B$ 
190IFLEN(C$)>LLTHENVDU3: 

PRINT'"FORMAT ERROR-WORD 

TOO LONG":END 
200LP=LP + 1 
210IFLP<=LLTHEN240 
220 PRINT'D$;:IF ASC(C$) =32 THEN 

C$ = RIGHT$(C$,LEN(C$)-1) 
230 LP = LEN(C$) 
240 IF B$ = "D" AND LP< =LLTHEN 

PRINTC$;:C$ = "" 
250 NEXT 
260 GOTO 90 
270 DEF PROCCENT 
280 A$ = RIGHT$(A$,LEN(A$) - 1 ) 
290 IF LEN(A$) > LL THEN VDU3: 

PRINT-LINE TOO LONG-CANNOT 

CENTRE IT":END 
300 PRINT;'D$;STRING$ 

((LL-LEN(A$))/2,"D");A$;'D$; 
310 LP = 
320 ENDPROC 
330 DEF PROCADDR 
340X=LEN(A$) 
350 RESTORE 
360 READ A$:IF ASC(A$) <> 35 THEN 

390 
370 IF LEN(A$) > X THEN X = LEN(A$) 
380 GOTO 360 
390 IF X> LL THEN VDU3:PRINT' 

"FORMAT ERROR-ADDRESS TOO 

LONG":END 
400 E$ = STRING$((LL-X),"D") 
410 RESTORE 
420 READ A$ 
430 REPEAT 

440 A$ = RIGHT$(A$,LEN(A$) - 1 ) 
450 PRINTE$A$'D$; 
460 READ A$ 

470 UNTIL ASC(A$)<> 35 
475 ENDPROC 
480 PRINT:VDU3:MODE6:REPORT: 

PRINTEND 




10 LET LL=32: LET PL = 32 

15 LET LL=LL + 1: LET T= (PL- LL)/2 

20 LET D = 

30 READ AS: LETL=LENA$ 

40LETC = 

50 IF C = L THEN GOTO 30 

60 LET C = C + 1 : LETD = D + 1: IFC>1 

THEN GOTO 100 
70 IF A$(C) = " # " THEN GOTO 500 

80 IF A$(C) = THEN GOTO 700 

85 IF A$(C) = "&" THEN GOTO 850 
90 IF A$(C) = "$" THEN LPRINT 

CHRS 13;CHR$ 13;: LETD = 0: 

GOTO 900 



95 LET A$ = "D" + AS: LET L=L+1 

100 IF A$(C)="n" THEN GOTO 800 

110 LPRINT AS(C); 

115 IF D>LLTHEN LET D = 

120 GOTO 50 

500 LET NL = 0: LETTA=LL: LET BE = 

510 LET LE= LEN A$ — 1 : IF LE> LL 

THEN PRINT FLASH 1;"FORMAT ERROR- 
ADDRESS TOO LONG": STOP 

520IFLE>BETHENLETBE=LE 

530 LET NL = NL + 1: READ A$: IF 
A$(1) = "#"THENGOTO510 

540 RESTORE 1000 

550LETTR=T+LL-BE:FORG = 1 TO NL: 
FOR H = 1 TO TR: LPRINT "D";: NEXT H: 




READ A$: LPRINT A$(2 TO ): NEXT G 
560 GOTO 30 
700 LET TA = (LL- L)/2 + T: IF TA<T 

THEN LPRINT CHR$ 13: PRINT FLASH 

1;"FORMAT ERROR-CANNOT CENTRE" 

STOP 
710 LPRINT CHR$ 13;: FOR N = 1 TO 

TA: LPRINT "□";: NEXT N: LPRINT 

A${2 TO L): GOTO 20 
800LETSL=LL-D-1: LET CC = C + 1: 

LET X = 1 
8101F CC=L THEN GOTO 825 
820 IF A$(CC) <> "D" THEN LET 

CC = CC + 1: LETX=X+1: GOTO 810 
825 IF X> = LL THEN LPRINT CHR$ 13: 



PRINT FLASH 1;"FORMAT ERROR-WORD 
TOO LONG":STOP 
830 IF SL> =XTHEN GOTO 110 

850 LPRINT CHRS 13;: LETD = 
900 FOR B = 1 TOT: LPRINT "D";: 
NEXT B: GOTO 50 



CENTRE".A$:END 
810PRINT#-P,CHR${13); 
820 IF HW> LEN(A$)/2 THEN PRINT 

#-P,STRING$(HW-LEN(A$)/2,"D"); 
830ST = 2:RETURN 
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10 CLEAR 200 
20 TL = 80 
30LL=56 
40P = 

50SP=(TL-LL)/2:HW = TL/2 

60PRINT#-P,CHR$(13) 

70 IFF = 2 THEN SP$ = STRING$(SP,"D") 

ELSESP = 0:HW=16 
200READA$:A$ = A$ + "D" 
210 IF AS = "" GOTO 290 
220O$=LEFT$(A$,1) 
230IFO$ = "#"THENML=0: 

G0SU8 400:GOTO 290 
240 IF 0$ = "$" THEN RL = 0:PRINT# - P, 

CHR$(13);CHR${13);SP$;:ST= 2: 

GOTO 280 
250 IF 0$ = "*" GOSUB800: 

RL=HW-LEN(A$)/2:GOTO280 
260 IF 0$ = "&" THEN RL = 0:PRINT# -P, 

CHR$(13);SP$;:ST=2:GOTO280 
270 ST =1 
280 GOSUB 600 
290 GOTO200 
400IFLEN(A$)>MLTHENML = 

LEN(A$} 
410 N = N + 1:READA$:IFLEFT$(A$,1) = 

"#" GOTO 400 
420 IF ML> LL THEN CLS:PRINT" format 

errarD... ADDRESS IS TOO LONG 

FOR THE SET LINE-LENGTH !":END 
430 RESTORE:FOR J = 0TO N - 1 : 

READA$:PRINT#-P,STRING$ 

(LL- ML," D");SP$;: PRINT # -P, 

MID$(A$,2);CHR$(13); 
440 NEXT:RETURN 
600WL = 

610 IF ST + WL>LEN(A$) THEN 630 
620 IF MID$(A$,ST + WL,1)< > "□" 

THEN WL = WL + 1:G0T0 610 
630 IF WL> LL THEN CLS:PRINT"format 

error . . .";A$:PRINT"D. . . CONTAINS 

A WORD LONGER THAN THE LINE- 

LENGTH!!":END 
640 IF RL+WL-1>LL THEN PRINT 

#-P,CHR$(13);SP$;:RL = 
650WL=WL+1 
660 PRINT# - P,MID$(A$,ST,WL);: 

RL = RL+LEN(MIDS(A$,ST,WL)) 
670 ST=ST + WL:IF ST<LEN(A$) + 1 

GOTO 600 
680 RETURN 
800IFLEN(A$)>LLTHENCLS: 

PRINT" format error... CANNOT 
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What should a job application 
look like? 

The layout and presentation of a job 
application is extremely important as it is 
the first impression the company has of 
you — a jumbled up or cramped letter will 
leave a bad impression no matter how 
well qualified you are. Letter-writing 
styles change over the years but here are 
the latest rules. 

Your address goes at the top right of 
the paper, but not too near the top. You 
can leave out all punctuation marks even 
after abbreviations such as Rd or St for 
Road and Street and you should start 
each line directly below the one above, 
without staggering them. 

The date goes under your address after 
a line space if you like. 

Next comes the name and address of 
the person you're writing to. This goes 
on the left-hand side of the page, either 
level with or below your address. The 
name and address should be written out 
in full as it will be your record of who 
you. sent the letter to — assuming you 
remember to keep a copy or to SAVE it on 
tape, that is! 

If the job advertisement gave a 
reference number then you should put 
'Your ref ' followed by the number above 
their address. 

Now comes the letter itself. If you're 
applying for a particular post then write 
this in the centre of the line below 'Dear 
Sir' or whatever, and leave a space above 
and below so the person who has to 
process the application can see at a glance 
what the letter is about. 

The main body of the letter looks 
neatest if the paragraphs all start at the 
left with a space between each one. 

Finally, 'Yours faithfully' or 'Yours 
sincerely' can go at the left, right or 
centre of the page with your name lined 
up underneath leaving enough space for 
your signature. By the way, the rule Vy 
use 'faithfully' with 'Dear Sir' ancL- 
'sincerely' with a persons name/ 
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A typical letter entered as a series of 
DATA statements on the Dragon — and the 
letter as it appears from the printer, 
ready to sign and post off 

10 CLR:LL = 60:TL = 80:QQ=(TL-LL}/2: . 

DIMA$(20}:PRINT"n" 
15 F0RZ = 1 TOLL+QQ:S$ = S$ + "D": 

NEXTZ 
20 OPEN 4,4:CMD 4:LE=0:GOTO 800 
100 READ K$ 
1 02 K$ = K$ + " □ ":IF LEFT$(K$,1 ) = "•" 

THEN LE = 0:GOTQ 600 
110IFK$ = "D"THENPRINT#4 } 

CHR$(13):CLOSE4:END 
115 IF LEFT$(K$,1} = "&" THEN LE = 

0:PRINT#4,CHR$(13),:GOTO400 
120 IF LEFT$(K$,1) = "$" THEN 

PRINT#4,CHR$(13):LE = 0:GOTO 400 
130 GOTO 452 

400 K$= RIGHT$(K$, LEN(KS)-I) 
450 IF LEN(K$)<1 THEN 100 
452 IF LE = THEN PRINT#4, 

LEFTS (S$,QQ); 
455 FOR L=1 TO LEN{K$) 
460 IF MID$(K$,L,1 } = " □ " THEN 

KK$= LEFT$(K$,L):K$= RIGHT$(K$, 

LEN(KS)-L): GOTO 480 
470 NEXT:G0T0 100 
480 GOSUB 500:GOTO 450 
500IFLEN(KK$)>LL+1 THEN 950 
505IFLE+ LEN(KK$)>LLTHEN 

PRINT#4,CHR$(13); LEFT$(S$,QQ);: 

LE = 
510LE=LE+ LEN(KK$):PRINT#4, 

KK$;:RETURN 
550 RETURN 
600 PRINT#4, CHR$(13): LEFT$(S$, 

QQ);:IFLEN(K$)>LL THEN 960 
610 PRINT#4, LEFT$(S$,((LL-.5)- 

(LEN(K$)-1)\5))RIGHT$(K$, 

LEN(KS) — 1):G0T0 100 
800 READ X$:P = P+1:IF LEFT$(X$,1) 

<>"#" THEN 900 
810A$(P) = RIGHT$(X$, LEN(X$)-1}: 

IFLEN(A$(P))>HLTHEN 

HL=LEN(A$(P)) 
815IFHL>LLTHEN950 
820 GOTO 800 

900 IF P = 1 THEN RESTORE:GOTO 100 
910P=P-1:FORZ = 1 TOP 
920PRINT#4,LEFT$(S$,QQ); 

LEFT$(S$,(LL-HL))A${Z):NEXTZ: 

K$ = X$:GOTO102 
950 PRINT#4,"D":PpiNT "@F0RMAT 

ERROR-WORD TOO L0NG":CL0SE 4: 

END 
960PRINT#4,CHR$(13):PRINT 

u @ FORMAT ERROR-CANNOT CENTRE 

UNE":CL0SE4:END 
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CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



K 



AND 


35, 36 


ENDPROC, Acorn 


ANGL, Commodore 


88 


also see procedures 


Animation 


26-32 


Errors, causes of 


Applications 




ESCAPE, Acorn 


hobbies' files 


46-53, 75-79 




letter writer 


124-128 




ARC, Commodore 


88 


F 


Assembler, definition of 


67 


Assembly language 


66-67 


Field 


Assignment statement 


66-67, 92 


File, SAVEing/LOAE 


ATTR, Spectrum 


68-69 


Filing system progr 



64 Keypress, detection of 



B 



BASIC programming 




the FOR . . . NEXT loop 


16-21 


decision making 


33-37 


how to PLOT, PAINT, 




DRAW, LINE 


84-91 


programmer's road signs 


60-«4 


random numbers 


2-7 


READ and DATA 


104-10) 


screen displays 


117-123 


variables 


9J-W 


Binary 38,41, 


44,45, 113-116 


Bit, definition of 


113 


BORDER, Spectrum 


86 


Breaking cut of a program 


4 


Bridge, drawing a 




Spectrum 


108 


Byte, definition of 


114 



Calculator program for all 

number bases 
Cassette, choice of 
Cassette recorders, choice of 
Castle, drawing a 

Dragon, Tandy 
CHRJ, Dragon 
CIRCLE 
CLEAR 

Dragon 

Spectrum 
Clock, internal 
COLOUR 

Compiling programs 
Control variables 
Cricket average program 
Cursor, definition of 

control codes, Commodore 64 

Vic 20 



DATA 

for graphics 

machine code 

statements 
Decimal numbers 

conversion from binary 

converting fractions into binary 
Decision making 
Default colours 

Acorn 

Dragon 
Delays in programs 
DIM, Dragon 
Directory program 
DRAW 



112-113 

24 
25 

108 
26-27 
86-91 

14,27 

10 

69-73 

87-90 

66 

94 

118-123 



123 



104-109 

107-109 

67 

8-14, 40-15 

110 

38,42 

114 

33-37 

89 
90 
17 
41 
105 
85-91 



FLASH, Spectrum 
FOR... NEXT loops 



36 
4 



46, 75 

77 

46-53, 75-79 

86 

16-21 



Games 

animation 

controlling movement 54-55 

firing missiles 

fruit machine 

guessing 

maze game 

minefield 

moving characters 

routines 

scoring and timing 69-73, 

GCOL, Acorn 
GET 

GETS, Acorn, Commodore 55, 57, 
GOSUB 

GOTO 18-21 

Graph-drawing program 

Acorn 
Graphics, characters 

creating and moving UDGs 

drawing pictures 1 

fire-breaking dragon 

frog UDG 

instant embroidery 

low resolution 

painting by numbers 

sunset pattern 

tank UDG 

using PLOT, DRAW, CIRCLE, 

LINE, PAINT 

Acorn 

Commodore 

Dragon 

Spectrum 



26-32 

57-59 

55-58 

36 

3-5 

68-74 

97-103 

54-59 

8-15 

97-103 

89 

55 

58, 103 

62-64 

,60-62 

64 

38-45 

8-15 

07-109 

80-83 

10-15 

21 
26-32 

19 

20 
10-15 



88-90 
87-88 
90-91 
85-86 



H 



Hexadecimal, conversion 

from binary 
HIRES, Commodore 
Hobbies file 
House, drawing a 

Acorn 

Commodore 



IF... THEN statements 

IF. ..THEN. ..ELSE 

IF. ..THEN. ..GOTO 

INK, Spectrum 

INKEY, Acorn 

INKEVS 

INPUT 

INT, Commodore, Spectrum 



38, 42, 45 

87 

46-53, 75-79 

107-108 
108-109 



3, 33-37 

37 

36,54 

86 

28-29, 103 

54-55 

3-5, 117-122 



Languages, computer 
see Assembly language: 
BASIC: Machine Code 

Letter writing program 

LINE 

Line numbers 

LOAD command 

Logical operators 

LOW COL, Commodore 



M 



Machine code programming 

advantages of 

binary numbers 

drawing a dragon with 

games graphics 

low level languages 

nonary numbers 

number bases 

speeding up games routines 
Maze programs 
Menu 
MH)& Acorn 

Commodore 
Minefield game 
MODE, Acorn 
MOVE, Acorn 
Movement 

Acorn 

Commodore 

Dragon 

Spectrum 
MULT1, Commodore 



N 



Nested loop 

definition and use of 
NEW 

Nonary numbers 
Number bases 
Null strings 







2-3 



ON... GOSUB 
ON. ..GOTO 
Opcodes 
Operators 
OR 



PAINT 

PAPER, Spectrum 
Parameters 
PAUSE 

Commodore 

Spectrum 
PEEK 

Peripherals, cassettes 
Pixel 

PLAY, Dragon 
PLOT 

PMODE, Dragon 
POINT, Acorn 
POKE 

Commodore 

Dragon 



54-55 



124-128 

88-91 

7 

22-25 

35-37 

87 



65-67 

66 

113-116 

80-83 

38-45 

65-67 

111-112 

110-116 

8-15 

68-75 

46-47 

71 

101-102 

97-99 

28 

71,88-90 

28-29 
30-31, 59 
26-27, 59 

31-32 

87 



19 

10-15,23 

111 

110-116 

96 



64 
62 
67 
35 
35-36 



91 
86 
64 

88 

101, 108 

59, 101 

22-25 

84 

73 

88-89 

90 

71 

i 99, 108-109 
13, 40, 101 



Spectrum 1 01 

Positioning text 117-123 

PRINT 26-32, 117-123 
PRINT AT 

Dragon 26-27 

Spectrum 8-9, 31-32 
PRINT TAB 

Acorn 11,28 

Commodore 30 

PROCedares, Acorn 64 

PSET, Dragon 13,90-91 

Punctuation, in PRINT statements 119-123 



R 



RAM 

Random numbers 

RANDOMIZE 

READ 

REC, Commodore 

Records 

REPEAT... UNTIL, Acorn 

Resolution, high and low 

RETURN 

RESTORE 

RIGHTS, Commodore 

KM) function 

ROM graphics 

Acorn 

Commodore 

Dragon 

Spectrum 
RUN/STOP, Commodore 
RVS, Commodore 



25, 44, 46 

2-7 

2 

40-44, 104-109 

87 

75-77 

36 

84 

62 

106-107 

101, 102 

2-7 

107-109 

28-29 

31,37,44,74 

26-27 

31-32 

7 

31 



SAVE 22-25 
Scoring 97, 100-101 

high score 11)0 

SCREEN, Dragon 40, 90 

Screen formatting 117-123 

Simons' BASIC, Commodore 87-88 

Sprites, Commodore 14-15 

STEP 17, 21 

STOP, Spectrum 4, 64 
Spaces, using, Commodore f>4, Vic 20 122 

String variables 4, 95-96 
STRINGS 

Acorn 98 

Dragon 98 

Subroutines 62-63 

Symbols, arithmetic 6 



TAB 

Tables, multiplication 

Teletext graphics, BBC 

Terminating numbers 

Timing 



117-122 

5-7 

28-29 

34 

97, 101-103 



u 



UDG (User defined graphics) 8-15, 40-44 
grids for 8-1 1 

DATA for 45 

creating your own 38-45 



V 



VAL, Commodore 101 

Variables 3-5, 92-96, 104-108 

VDU commands, Acorn 28-29, 70, 99 

Verifying saved programs 24-25 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and written material 

should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 5 ... / 



£J Arcade-type games are much less exciting if 
the 'enemy' doesn't shoot back at you. Learn 
how to create DEADLY ENEMIES, and how to 
protect yourself from them with shields. 

OPut your computer to work again, with a 
new program that stores and calculates your 
FINANCIAL ACCOUNTS for personal 
expenditure. 

_J Move one step nearer to your own machine 
code programs by getting to grips with 
HEXADECIMAL ARITHMETIC - the 
base- 16 system the computer itself uses. 

-/Tell your computer what to do, using the 
BASIC commands INKEY$, or GET and 
GETS. There's even a graphics program that 
gives you fingertip control through the 
keyboard. 

Q Learn about ARRAYS, the powerful BASIC 
tools that lets a programmer store information 
until it's needed. 



A MARSHALL CAVENDISH |>1 COMPUTER COURSE IN WEEKLY PARTS 



LEARN PROGRAMMING - FOR FUN AND THE FUTURE 
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